#put this after your rmdir print Win32::FormatMessage(Win32::GetLastError())."\n";
# or add $! To your warn statement They will tell you why it thinks it didn't work.. $! Numerically, and the print statement formatted. You could probably combine the FormatMessage with $! As well, though I haven't tried. Steven -----Original Message----- From: John Deretich [mailto:[EMAIL PROTECTED] Sent: Friday, September 26, 2003 10:56 AM To: Perl-Win32-Admin-Request (E-mail) Subject: removing an empty directory Hello, I was wondering if anyone would know why rmdir wouldn't remove an empty directory? This is the code that I'm using: use strict; my $directoryempty = undef; my $searchdrive1 = 'I:\\'; opendir(EMPTYDIR, $searchdrive1) ; while($directoryempty = readdir(EMPTYDIR) ) { chomp $directoryempty; rmdir ("$directoryempty") || warn "Cannot remove directory $directoryempty\n"; } 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
