Look at the documentation for Win32::File for ActiveState...I'm assuming you
are using ActiveState.
I'm not entirely sure, but I assume it goes something like this:
use Win32::File;
use strict;
my $fileattr;
GetAttributes( "C:/command.com", \$fileattr );
if( $fileattr & HIDDEN ) {
print "Hidden file!";
}
elsif( $fileattr & SYSTEM ) {
print "System file!";
}
Tanton
----- Original Message -----
From: "Tin-Shan Chau" <[EMAIL PROTECTED]>
To: "Help on PERL" <[EMAIL PROTECTED]>
Sent: Saturday, October 26, 2002 6:34 PM
Subject: Testing for hidden or system files
> Does anyone know how to test for a hidden or system file under Windows
95/2000?
>
> Thanks in advance for your help.
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
