> I would like to make a file read-only, but only if no other process
> currently has it open. I had hoped that setting the read-only attribute
>
> if ( Win32::File::SetAttributes( $file, READONLY ) ) { ... }
>
Try this:
if ($fh = Win32API::File::createFile( $file, 'r', '' ) ) {
# no one else has the file open
} else {
# someone does
}
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
