/*http://www.autohotkey.com/board/topic/60985-get-paths-of-selected-items-in-an-explorer-window/Library for getting info from a specific explorer window (if window handle not specified, the currently activewindow will be used).  Requires AHK_L or similar.  Works with the desktop.  Does not currently work with savedialogs and such.  Explorer_GetSelected(hwnd="")   - paths of target window's selected itemsExplorer_GetAll(hwnd="")        - paths of all items in the target window's folderExplorer_GetPath(hwnd="")       - path of target window's folderexample:F1::path := Explorer_GetPath()all := Explorer_GetAll()sel := Explorer_GetSelected()MsgBox % pathMsgBox % allMsgBox % selreturnJoshua A. Kinnison2011-04-27, 16:12
*/
Explorer_GetPath(hwnd="")
{if !(window := Explorer_GetWindow(hwnd))return ErrorLevel := "ERROR"if (window="desktop")return A_Desktoppath := window.LocationURLpath := RegExReplace(path, "ftp://.*@","ftp://")StringReplace, path, path, file:///StringReplace, path, path, /, \, All ; thanks to polyetheneLoopIf RegExMatch(path, "i)(?<=%)[\da-f]{1,2}", hex)StringReplace, path, path, `%%hex%, % Chr("0x" . hex), AllElse Breakreturn path
}Explorer_GetAll(hwnd="")
{return Explorer_Get(hwnd)
}Explorer_GetSelected(hwnd="")
{return Explorer_Get(hwnd,true)
}Explorer_GetWindow(hwnd="")
{; thanks to jethrow for some pointers hereWinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")WinGetClass class, ahk_id %hwnd%if (process!="explorer.exe")returnif (class ~= "(Cabinet|Explore)WClass"){for window in ComObjCreate("Shell.Application").Windowsif (window.hwnd==hwnd)return window}else if (class ~= "Progman|WorkerW") return "desktop" ; desktop found
}Explorer_Get(hwnd="",selection=false)
{if !(window := Explorer_GetWindow(hwnd))return ErrorLevel := "ERROR"if (window="desktop"){ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progmanif !hwWindow ; #D modeControlGet, hwWindow, HWND,, SysListView321, AControlGet, files, List, % ( selection ? "Selected":"") "Col1",,ahk_id %hwWindow%base := SubStr(A_Desktop,0,1)=="\" ? SubStr(A_Desktop,1,-1) : A_DesktopLoop, Parse, files, `n, `r{path := base "\" A_LoopFieldIfExist %path% ; ignore special icons like Computer (at least for now)ret .= path "`n"}}else{if selectioncollection := window.document.SelectedItemselsecollection := window.document.Folder.Itemsfor item in collectionret .= item.path "`n"}return Trim(ret,"`n")
}