.; kilmtdirs - delete empty directories .if gt 1 .goto ok00 ; ; This will delete all empty directories. ; ; If you create a file in one of these empty ; directories while I am working: you will annoy the ; filing system, you will lose any way of refering to the file ; and you will not regain the disk space that file occupies. ; ; So say NO if you think anyone on the computer might be ; creating files. ; .ask maybe Do you want to continue .iff maybe .exit .ok00: .enable substitution .sets home .ifins ...mtd .goto ok10 ins $mtd @[1,2]ballsup / Install Empty Directory Finder (MTD) .ok10: .ifins ...reo .goto ok20 ins $reoder .ok20: mtd >work @[1,2]ballsup / List all the empty directories reo work "\@killfile `" set /uic=[1,1] @[1,2]ballsup / Gain File Manager Privileges @'home'work. set /uic='home' @[1,2]ballsup / Forgo File Manager Privileges .if p1 = "KEEPWORK" .goto ok80 delete work;* @[1,2]ballsup / Clean up working files .ok80: