Hi Mark, will this remove only the empty directories or all of the directories?
thanks, John -----Original Message----- From: Messenger, Mark [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 30, 2003 4:58 PM To: John Deretich; Perl-Win32-Admin-Request (E-mail) Subject: RE: removing empty directories Dumb question: Why not use 'rd'? Rd is included in NT4/2000/XP. Example: `"rd /s /q \"c:\\some dir to delete\""`; # /s = kill sub dirs /q = quiet. -----Original Message----- From: John Deretich [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 30, 2003 3:05 PM To: Perl-Win32-Admin-Request (E-mail) Subject: removing empty directories Hello, I was wondering if anyone has a script that will remove empty directories and subdirectories. The code that I am using will delete the entries at the first sublevel but not at multiple sublevels. Here's my code: opendir(EMPTYDIR, $searchdrive1) ; while ($directoryempty = readdir(EMPTYDIR)) { if ($directoryempty ne "." && $directoryempty ne "..") { $directoryempty = $searchdrive1 . "\\" . $directoryempty; if (-d $directoryempty) { opendir(EMPTY, $directoryempty); while ($subdirectoryempty = readdir(EMPTY)) { if ($subdirectoryempty ne "." && $subdirectoryempty ne "..") { $subdirectoryempty = $directoryempty . "\\" . $subdirectoryempty; system ("rmdir \"$subdirectoryempty\" ") || warn "Cannot remove $subdirectoryempty: $! \n"; } } system ("rmdir \"$directoryempty\" ") || warn "Cannot remove $directoryempty: $! \n"; } } } I have File::Path but when I run it, it will remove more than what I need. thanks, John _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
