AHK: Закрыть рабочую папку скрипта

WinClose, % "ahk_id" GetFolderHwnd(A_WorkingDir)

GetFolderHwnd(FolderPath)
{
   for item in ComObjCreate("Shell.Application").Windows
   {
      url := SubStr(item.LocationURL, 9)
      StringReplace, url, url, /, \, 1
      url := UriDecode(url)
      if (url = FolderPath && hwnd := item.hwnd)
         Return hwnd
   }
}

UriDecode(Uri, Enc = "UTF-8")
{
   While Pos := RegExMatch(Uri, "i)(%[\da-f]{2})+", Code, A_Index = 1 ? 1 : Pos+Len)
   {
      VarSetCapacity(Var, Len := StrLen(Code)//3, 0)
      StringTrimLeft, Code, Code, 1
      Loop, Parse, Code, `%
         NumPut("0x" . A_LoopField, Var, A_Index - 1, "UChar")
      StringReplace, Uri, Uri, `%%Code%, % StrGet(&Var, Enc)
   }
   Return Uri
}

Run, % A_WorkingDir
Loop
   Sleep, 100
until hwnd := GetFolderHwnd(A_WorkingDir)
MsgBox, % hwnd

GetFolderHwnd(FolderPath)
{
   for item in ComObjCreate("Shell.Application").Windows
      if (item.Document.Folder.Self.Path = FolderPath)
         Return item.hwnd
}

SelectFilePath(FilePath)
{
   for item in ComObjCreate("Shell.Application").Windows
   {
      window := item, ShellFolderView := item.Document
      for item in ShellFolderView.Folder.Items
      {
         if (item.path = FilePath)
         {
            ShellFolderView.SelectItem(item, 1|4)   ; 1 — select the item, 4 — deselect all but the specified item.
            WinActivate, % "ahk_id" hwnd := window.hwnd
            break 2
         }
      }
   }
   if !hwnd
      Run, explorer /select`, "%FilePath%"
}

SelectFilePath(FilePath)
{
   for item in ComObjCreate("Shell.Application").Windows
   {
      window := item, ShellFolderView := item.Document
      for item in ShellFolderView.Folder.Items
      {
         if (item.path = FilePath)
         {
            ShellFolderView.SelectItem(item, 1|4|16)   ; 1 — select the item, 4 — deselect all but the specified item, 16 — give the item the focus.
            WinActivate, % "ahk_id" hwnd := window.hwnd
            break 2
         }
      }
   }
   if !hwnd
      Run, explorer /select`, "%FilePath%"
}

OpenDir(FilePath)    {
    SplitPath, FilePath,, FolderPath  
    for window in ComObjCreate("Shell.Application").Windows
    {
        try if (window.Document.Folder.Self.Path = FolderPath)
        { 
            try for item in window.Document.Folder.Items
            {  
                if (item.path = FilePath)
                {
                    WinActivate, % "ahk_id" window.hwnd
                    window.Document.SelectItem(item, 1|4|16|8)   
                    Return 
                }
            } 
        } 
    }
    Run, explorer /select`, "%FilePath%"
}

SelectFilePath(FilePath)
{
   SplitPath, FilePath,, Dir
   for window in ComObjCreate("Shell.Application").Windows
   {
      ShellFolderView := window.Document
      
      try if ((Folder := ShellFolderView.Folder).Self.Path != Dir)
         continue
      catch
         continue
      
      for item in Folder.Items
      {
         if (item.Path != FilePath)
            continue
         
         ShellFolderView.SelectItem(item, 1|4|8|16)
         WinActivate, % "ahk_id" window.hwnd
         Return
      }
   }
   Run, explorer /select`, "%FilePath%"
}