AutoHotkey Community

SetWorkingDir, %A_ScriptDir%

SetWorkingDir,

$MinimumSplashTime=850
SplashImage,, W258 B2 ,,Building directory list...
$SplashStartTime=%A_TickCount%
Sleep 10  ;-- Allow splash image to render
$DirectoryList=
Loop *.*,2,1
    $DirectoryList=%$DirectoryList%%A_LoopFileFullPath%`r`n
Sort $DirectoryList
$SplashElapsedTime:=A_TickCount - $SplashStartTime
if $SplashElapsedTime<%$MinimumSplashTime%
    {
    $SleepTime:=$MinimumSplashTime - $SplashElapsedTime
    Sleep %$SleepTime%
    }
SplashImage,, W354 B2 ,,Searching for directories to delete...
$SplashStartTime=%A_TickCount%
$DeleteTotal=0
$LoopCount=0
Loop 99
    {
    $LoopCount:=$LoopCount + 1
    $DeleteCount=0
    Loop parse,$DirectoryList,`n,`r
        {
        if A_LoopField=  ;-- Ignore blank item
            continue
        IfExist %A_LoopField%
            {
            FileRemoveDir %A_LoopField%
            if errorlevel=0
               $DeleteCount:=$DeleteCount + 1
            }
        }
    $DeleteTotal:=$DeleteTotal + $DeleteCount
    If $DeleteCount=0
        break
    }
$SplashElapsedTime:=A_TickCount - $SplashStartTime
if $SplashElapsedTime<%$MinimumSplashTime%
    {
    $SleepTime:=$MinimumSplashTime - $SplashElapsedTime
    Sleep %$SleepTime%
    }
SplashImage off
ExitApp

Strip( _String )
{
    StringReplace, _String, _String, `r`n, , All
    StringReplace, _String, _String, `r, , All
    StringReplace, _String, _String, `n, , All
    _String = %_String%
    Return, _String
}
ifwinexist, ahk_class CabinetWClass
{
   ControlGetText, OutputVar, toolbarwindow322, ahk_class CabinetWClass
   stringreplace, address, OutputVar, Address:
   address := Strip( address )
   MsgBox, %address%
}

Strip = c:\my documents\user1\this is a\test\folder\file.ahk
SplitPath, strip, , OutDir
MsgBox % OutDir

   MsgBox, %address%

   SetWorkingDir, %address%

   ControlGetText, OutputVar, toolbarwindow322, ahk_class CabinetWClass
   stringreplace, address, OutputVar, Address:

if (WinExist("ahk_class CabinetWClass")) {
   ControlGetText, path, Edit1
   path:=Strip(path)
   SetWorkingDir, %path%
}

Strip( _String )
{
    StringReplace, _String, _String, `r`n, , All
    StringReplace, _String, _String, `r, , All
    StringReplace, _String, _String, `n, , All
    _String = %_String%
    Return, _String
}
ifwinexist, ahk_class CabinetWClass
{
   ControlGetText, OutputVar, toolbarwindow322, ahk_class CabinetWClass
   stringreplace, address, OutputVar, Address:
   address := Strip( address )
   SetWorkingDir, %address%
}

$DirectoryList=
Loop *.*,2,1
    $DirectoryList=%$DirectoryList%%A_LoopFileFullPath%`r`n
Sort $DirectoryList
$DeleteTotal=0
$LoopCount=0
Loop 99
    {
    $LoopCount:=$LoopCount + 1
    $DeleteCount=0
    Loop parse,$DirectoryList,`n,`r
        {
        if A_LoopField=  ;-- Ignore blank item
            continue
        IfExist %A_LoopField%
            {
            FileRemoveDir %A_LoopField%
            if errorlevel=0
               $DeleteCount:=$DeleteCount + 1
            }
        }
    $DeleteTotal:=$DeleteTotal + $DeleteCount
    If $DeleteCount=0
        break
    }
Return

Edit1

Edit1

path:=Strip(path)

#NoEnv

Explorer_win:="ahk_class CabinetWClass"
Explorer_ctrl:="Edit1"

F9::
ControlGetText, path, %Explorer_ctrl%, %Explorer_win%
if (errorlevel) {
   if (WinExist(Explorer_win)) {
      WinGet, Explorer_ctrllist, ControlList
      WinGetText, Explorer_text
      msgbox, 16, , Error: ControlGetText failed`n`nControl not found (%Explorer_ctrl%)...`n`n---Control List---`n%Explorer_ctrllist%`n---Window Text---`n%Explorer_text%---end---
   } else {
      msgbox, 16, , Error: ControlGetText failed`n`nNo Explorer window found...`n`n%Explorer_win%
   }
   return
}
msgbox, 64, , Success!`n`npath(%path%)
return