Jeremy,
You could try something like this:
my $Attributes = 32;
$path = "L:\\Flu\\StData\\";
foreach $e ( <$path\\*.*> ) {
Win32::File::SetAttributes ($path, NORMAL);
}
>From: "Miller, Jeremy T." <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED]
>Subject: changing file attributes
>Date: Thu, 17 Jan 2002 14:33:45 -0500
>
>I'm receiving several hundred data files from from several states via
>CD-ROM. When these files are copied to my hard drive or network storage,
>the read-only attribute remains on the file. What I would like to do is
>have Perl to remove the read-only attribute for all of the files that I put
>in a certain folder (e.g., L:\Flu\StData\).
>
>If there is a better way or another program to do this, can someone direct
>me to the appropriate tool?
>
>Thanks,
>
>---------------------------
>Jeremy T. Miller
>Centers For Disease Control
>Atlanta, GA 30333
>Ph: (404) 637-1883
>Fax: (404) 637-8614
>---------------------------
>
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
_________________________________________________________________
MSN Photos is the easiest way to share and print your photos:
http://photos.msn.com/support/worldwide.aspx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
