RE: Testing for hidden or system files

[ss004b3324]

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]