Help for this page

Select Code to Download


  1. or download this
    Argument "READONLY" isn't numeric
  2. or download this
    # get current file attributes
Win32::File::GetAttributes($file, my $attr);
# set file attributes to allow editing
$attr |= READONLY;
Win32::File::SetAttributes($file, $attr);
  3. or download this
    my $setReadOnlyAttribute = READONLY;
# set file attributes to allow editing
Win32::File::SetAttributes($file, $setReadOnlyAttribute);