123456789101112131415161718192021222324 |
- ::
- $log="RemoveEmptyFolders.xys: RDoi Empty folders remover<crlf>-------------------------------<crlf>";
- $folder=get("Path");
- $log=$log."Processing '".$folder."' folders...<crlf>";
- $flist=formatlist(folderreport("dirs","r",$folder,"r",,"|"),"r","|")."|".$folder;
- $count=0;
- foreach($f, $flist,"|") {
- $content=listfolder($f,,0,"|");
- if ($content=="") {
- delete 0,0,$f;
- $log=$log."Removed: ".$f."<crlf>";
- $count=$count+1;
- }
- }
- $log=$log.">>> ".$count." folders removed.";
- beep;
- text $log;
|