Did you know that having empty folders on you system can cause slowdown on you system? Yes it is true specially if you have program that traverse all the files and folders on your systems. You know, by looking to the files at our hard disk, it is a jungle out there.
Here is a simple approach to this problem:
dir <Target Dirctory> /b /ad /s | Sort /r > <output file>
EX: dir c:\Windows /b /as /s | sort /r >DirList.TXT
and append RD for each line on of the output file
The concept here is get the directory list and sort it reverse order. Why in reverse order since the directory display the top directory then it goes to it contents. By reversing the order you will remove the inner folder first, then the outer folder.
Since RD (Remove Directory) removes empty folder only, therefore it will just remove empty folders only.
Here is a PERL function I made:
if (!-d $_)
return 0; #Function Failed
#Get the directory list and sort it reverse order.
system (“dir $_ /b /ad /s | Sort /r > _junk.file”);
open LIST ,”_junk.file” || return 0; #Function Failed
foreach my $line (<LIST>)
print FH “RD \”$line\”\n”;
return 1; #Successful