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: $attr\n";
}
Check:
C:\Perl\Scripts>attrib test.txt
A C:\Perl\Scripts\test.txt
C:\Perl\Scripts>attrib +h test.txt
C:\Perl\Scripts>attrib test.txt
A H C:\Perl\Scripts\test.txt
C:\Perl\Scripts\test.txt attributes are: 34
C:\Perl\Scripts>attrib -h +s test.txt
C:\Perl\Scripts>attrib test.txt
A S C:\Perl\Scripts\test.txt
C:\Perl\Scripts\test.txt attributes are: 36
C:\Perl\Scripts>attrib +h +s test.txt
C:\Perl\Scripts>attrib test.txt
A SH C:\Perl\Scripts\test.txt
C:\Perl\Scripts\test.txt attributes are: 38
Hth,
Shaun
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24/10/2002
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
