Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

• Check Directory Sizes
• Delete Empty Directories UDF
• DelTree and Xcopy
• DirTimeSet UDF
• Get File Access Times for Dir
• List all Files in a Directory UDF
• List Directories
• Recursive Directory List
• Syncronize Directories
• XCopy Archive Files Only

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

UDF Delete Empty Directories

Keywords: 	 UDF Delete Empty Directories

---

The following UDF examine every directory under the root, then deletes them if they're empty. And it returns the number of items in ROOT.

#DefineFunction DeleteDirectories(Root)
;
    DirList = DirItemize(StrCat(Root,"\*.*"))
    Total = 0
    while @TRUE
        NextDir = ItemExtract(1,DirList,@TAB)
        if NextDir == "" then break
        DirList = ItemRemove(1,DirList,@TAB)
        NextDir = StrCat(Root,"\",NextDir)
        Count = DeleteDirectories(NextDir)
        if Count == 0
            DirRemove(NextDir)
        else
            Total = Total + Count + 1
        endif
    endwhile
    Count = ItemCount(FileItemize(StrCat(Root,"\*.*")),@TAB)
    Total = Total + Count
    return Total
#EndFunction

;-----------------------------------------------------------
;  Test the UDF
;-----------------------------------------------------------
TestDir = "C:\Windows\Desktop\Test"
x = DeleteDirectories(TestDir)
if x == 0 then DirRemove(TestDir)

---

Article ID:   W15319

File Created: 2002:09:05:13:51:20

Last Updated: 2002:09:05:13:51:20