Hi,
> Does anyone know how to test for a hidden or system file under Windows
> 95/2000?
This works:
use strict;
use Win32::File;
my $attr;
my $file = 'C:\Perl\Scripts\test.txt';
Win32::File::GetAttributes($file,$attr );
if ($attr & HIDDEN || $attr & SYSTEM) {
print "$file attributes are: $at
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 "Hid