AutoHotkey Community

DelEmpty(dir)
{
   FileGetAttrib Attrib,  %dir%
   FileGetTime ModTime,   %dir%, M
   FileGetTime CreateTime,%dir%, C

   Loop %dir%\*.*, 2
      DelEmpty(A_LoopFileFullPath)

   FileRemoveDir %dir%
   IfEqual ErrorLevel,1, Return

   MsgBox 4,,Remove directory %dir%?`nCreated:  %CreateTime%`nModified: %ModTime%
   IfMsgBox Yes
      Return
   FileCreateDir %dir%
   FileSetAttrib +%Attrib%, %dir%
   FileSetTime %CreateTime%,%dir%, C
   FileSetTime %ModTime%,   %dir%, M
}

DelEmpty(dir)
{
   Global kept
   FileGetAttrib Attrib,  %dir%
   FileGetTime ModTime,   %dir%, M
   FileGetTime CreateTime,%dir%, C

   Loop %dir%\*.*, 2
      DelEmpty(A_LoopFileFullPath)

   FileRemoveDir %dir%
   IfEqual ErrorLevel,1, Return

   MsgBox 4,,Remove directory %dir%?`nCreated:  %CreateTime%`nModified: %ModTime%
   IfMsgBox Yes
      Return
   kept += 1
   FileCreateDir %dir%
   FileSetAttrib +%Attrib%, %dir%
   FileSetTime %CreateTime%,%dir%, C
   FileSetTime %ModTime%,   %dir%, M
}

DelEmpty(dir)
{
   Global total, deleted, kept
   total += 1
   FileGetAttrib Attrib,  %dir%
   FileGetTime ModTime,   %dir%, M
   FileGetTime CreateTime,%dir%, C

   Loop %dir%\*.*, 2
      DelEmpty(A_LoopFileFullPath)

   FileRemoveDir %dir%
   IfEqual ErrorLevel,1, Return
   deleted += 1
   MsgBox 4,,Remove directory %dir%?`nCreated:  %CreateTime%`nModified: %ModTime%
   IfMsgBox Yes
      Return
   kept += 1
   deleted -= 1
   FileCreateDir %dir%
   FileSetAttrib +%Attrib%, %dir%
   FileSetTime %CreateTime%,%dir%, C
   FileSetTime %ModTime%,   %dir%, M
}

;RemoveEmptyDirectories.ahk

;-- Confirm
dir=%1%
If dir=
   dir:=A_WorkingDir
SetWorkingdir,%dir%
sleep 500
MsgBox 1,,About to remove all empty directories from:`r`n%Dir%\
IfMsgBox Cancel
    return

;-- Initialize
$MinimumSplashTime=850


;[========================]
;[                        ]
;[  Build Directory List  ]
;[                        ]
;[========================]
;-- Splash
SplashImage,, W258 B2 ,,Building directory list...
$SplashStartTime=%A_TickCount%
Sleep 10  ;-- Allow splash image to render

;-- Build directory list
$DirectoryList=
Loop %dir%\*.*,2,1
    $DirectoryList=%$DirectoryList%%A_LoopFileFullPath%`r`n

;-- Sort it
Sort $DirectoryList

;-- Compute elapsed time. Sleep if necessary
$SplashElapsedTime:=A_TickCount - $SplashStartTime
if $SplashElapsedTime<%$MinimumSplashTime%
    {
    $SleepTime:=$MinimumSplashTime - $SplashElapsedTime
    Sleep %$SleepTime%
    }


;[==================]
;[                  ]
;[  Remove Empties  ]
;[                  ]
;[==================]
;-- Splash
SplashImage,, W354 B2 ,,Searching for directories to delete...
$SplashStartTime=%A_TickCount%

;--- Loop until all empty directories have been deleted
$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
    }

;-- Compute elapsed time. Sleep if necessary
$SplashElapsedTime:=A_TickCount - $SplashStartTime
if $SplashElapsedTime<%$MinimumSplashTime%
    {
    $SleepTime:=$MinimumSplashTime - $SplashElapsedTime
    Sleep %$SleepTime%
    }

;-- Splash off
SplashImage off


;[===========]
;[           ]
;[  Results  ]
;[           ]
;[===========]
If $DeleteTotal=0
    msgbox No empty directories found
 else
    msgbox %$DeleteTotal% empty directories removed


;-- Return to sender
return

;*****************************
;*                           *
;*    CurrentExplorerPath    *
;*                           *
;*****************************
;
;
;   Description
;   ===========
;   This function returns the current path from the active Windows Explorer
;   window.  See the "Return Codes" section for more information.
;
;
;
;   Parameters
;   ==========
;   (None)
;
;
;
;   Return Codes
;   ============
;   Information is returned via the function and through ErrorLevel (system
;   variable).
;
;   Possible ErrorLevel values:
;
;     0 = No errors
;     1 = Windows Explorer|Cabinet window not active
;     2 = Invalid path format
;     3 = Path not found
;
;   If ErrorLevel is 0, the current path of the active Windows Explorer window
;   is returned.  If ErrorLevel is not 0, "C:" (sans quotes) is returned.
;
;
;   Important: ErrorLevel is a system variable and is used by many commands.
;   If you are unable to test ErrorLevel immediate after calling this function,
;   assign the value to another variable so that the return value is retained.
;
;   
;
;   Programming Notes
;   =================
;   For Windows Explorer, this design assumes that the current folder name
;   can be extracted from the Edit1 control.  There are 2 problems with this
;   design.  First of all, if the user modifies the value of Edit1, the function
;   will return modified value.  Although the function is designed to deal
;   with this possibility, it's still a pain in the butt.  Next, on rare
;   occation, the control that displays the current folder name is not labeled
;   Edit1.  When this occurs, the function will always return an invalid or
;   (usually) blank value.  The "problem" will not be corrected until the
;   window with the invalid control name is closed and a new Explorer window
;   is opened.  I have been unable to identify if/when/how this occurs.
;
;   Although the design is flawed, it is still more accurate than collecting the
;   current folder name from the title which truncates long folder names.
;
;-------------------------------------------------------------------------------
CurrentExplorerPath()
    {
    ;-- Windows Explorer/Cabinet active?
    IfWinNotActive ahk_class ExploreWClass
        IfWinNotActive ahk_class CabinetWClass
            {
            ErrorLevel=1
            Return "C:"
            }

    ;-- Collect the current directory
    ControlGetText l_CurrentPath,Edit1

    ;-- Desktop?
    if l_CurrentPath=Desktop
        l_CurrentPath:=A_Desktop

    ;-- My Documents?
    if l_CurrentPath=My Documents
        l_CurrentPath:=A_MyDocuments
 
    ;-- Valid path?
    SplitPath l_CurrentPath,,,,,l_Drive
    if StrLen(l_Drive)=0
        {
        outputdebug,
           (ltrim join`s
            Function: %A_ThisFunc% -
            Unable to decode path from the Windows Explorer window.
           )

        ErrorLevel=2
        Return "C:"
        }
     else
        {
        IfNotExist %l_CurrentPath%
            {
            outputdebug,
               (ltrim join`s
                Function: %A_ThisFunc% -
                Target folder "%l_CurrentPath%" does not exist.
               )

            ErrorLevel=3
            Return "C:"
            }
        }

    ;-- Return to sender
    ErrorLevel=0
    return l_CurrentPath
    }

curr_dir:=CurrentExplorerPath()
If not Errorlevel
  SetWorkingdir,%curr_dir%

curr_dir:=CurrentExplorerPath()
If not Errorlevel
  SetWorkingdir,%curr_dir%


$MinimumSplashTime=850

SplashImage,, W258 B2 ,,Building directory list...
$SplashStartTime=%A_TickCount%
Sleep 10
$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
    }
;-- Compute elapsed time. Sleep if necessary
$SplashElapsedTime:=A_TickCount - $SplashStartTime
if $SplashElapsedTime<%$MinimumSplashTime%
    {
    $SleepTime:=$MinimumSplashTime - $SplashElapsedTime
    Sleep %$SleepTime%
    }
SplashImage off
If $DeleteTotal=0
    msgbox No empty directories found
 else
    msgbox %$DeleteTotal% empty directories removed
return