; Removes empty folders, working from the inside to outside.

​

SetBatchLines -1

FileSelectFolder, Folder, , % (Del:=0), Purge Empty Folders

If ( ErrorLevel Or Folder="" )

  Return

Loop, %Folder%\*, 2, 1

  FL .= ((FL<>"") ? "`n" : "" ) A_LoopFileFullPath

Sort, FL, R D`n ; Arrange folder-paths inside-out

Loop, Parse, FL, `n

{

  FileRemoveDir, %A_LoopField% ; Do not remove the folder unless is  empty

  If ! ErrorLevel

       Del := Del+1,  RFL .= ((RFL<>"") ? "`n" : "" ) A_LoopField

}

MsgBox, 64, Empty Folders Purged : %Del%, %RFL%