Need a little help with file attributes. I am trying to query a remote file 
to file out if is set with read-only attributes, if so I would like to 
remove them. Any help will be appreciated. Here is the first part, but I 
can't even get the value of the attributes.

!#D://perl//bin//perl -w
$server = $_;
$share = "myshare";
$file = "some_file";
$filename = "\\\\$server\\$share\\$file";
Win32::File::GetAttributes ($filename, $Attributes ) || die $!;
print "$Attributes";

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to