if ($OS =~ m/win32/i) {
    my $attrib;
    Win32::File::GetAttributes($http_rec_localdir, $attrib);

    no strict qw(subs);
    no warnings qw(bareword);

    if ($attrib & (Win32::File::SYSTEM | Win32::File::HIDDEN)) {
        &error_dialog( "Destination Directory",
               "Destination directory is not writable." );
        return;
    }
}