AutoHotkey Community

;RemoveEmptyDirectories.ahk

;-- Confirm
MsgBox 1,,About to remove all empty directories from:`r`n%A_WorkingDir%\
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 *.*,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

DelEmpty("C:\backup")

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

DelEmpty_Folder = <<<put the folder name here>>>
DelEmpty(DelEmpty_Folder)

DelEmpty(dir) ; deletes empty sub-directories within the target
{
  Global DelEmpty_Folder
  Loop %dir%\*.*, 2
    {
    DelEmpty(A_LoopFileFullPath)
    }
  If dir !=%DelEmpty_Folder%
    {
    FileRemoveDir, %dir%
    }
}

Loop %p_UserDefinedDir%\*.*,2
    DelEmpty(A_LoopFileLongPath)

DelEmpty_Folder =c:\folder_to_delete ; folder to process
DelEmpty(DelEmpty_Folder)
return

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