----- Original Message -----
From: "Fabio Quintao" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, December 23, 2000 2:26 PM
Subject: readdir??
> Hi all,
>
>
> can someone help me? i want to check if a directory is
> empty......how can i do that.
$dir ="c:\\temp";
@filenames = "";
opendir (DIR, $dir);
@filenames = grep (!/^\.\.?$/ , readdir (DIR));
close DIR;
if (!@filenames){print "$dir is empty\n";}
if (@filenames){print "$dir is not empty\n";}
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
