Because they only want the empty ones, and this code is cross platform?
Ilene
- Original Message -
From: "Messenger, Mark" <[EMAIL PROTECTED]>
To: "John Deretich" <[EMAIL PROTECTED]>;
"Perl-Win32-Admin-Request (E-mail)"
<[EMAIL PROTECTED]>
Sent: Tuesday, September 30, 2003 4:57 PM
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
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs