Hi all,
I am trying to do directory traversal on NTFS. When I test fileif its a
directory or a regular file. It does not seem to work. -d anf -f test's dont
seem to work as well. Can someone please look over my error.
Thankx in advance, Mark
#!c:\perl\bin\perl -w
use Win32::File ;
&my_trav('.');
sub my_trav(){
$DIRNAME.=$_[0];
print "in dir $DIRNAME\n";
opendir DIR,$DIRNAME;
@dir=readdir DIR;
foreach $Val(@dir){
Win32::File::GetAttributes("$Val", $attr);
print "Direcotry:\t$Val\tattrib=$attr\n" if ( $attr & DIRECTORY);
print "File:\t$Val\tattrib=$attr\n" if ( $attr & NORMAL);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
