Menuへ

テキストファイルを他の人が読書きできないようロックし開く

シートのコード

実行画面 ・Closeボタン Private Sub CommandButton2_Click()     Close fno End Sub ・Lock Read （他からのReadはできないがWriteはOK。 ） Private Sub ExTextRead()     fno = FreeFile     'Lock Read で開く     Open "c:\test.txt" For Input Lock Read As fno End Sub メモ帳で開くと 「プロセスはファイルにアクセスできません。別のプロセスが使用中です。」とメッセージ ・Lock Write （Readは許可するがWriteはできない） Private Sub ExTextRead()     fno = FreeFile     'Lock Write で開く     Open "c:\test.txt" For Input Lock Write As fno End Sub メモ帳で変更し保存しようとすると 「パスおよびファイルが正しいか確認してください。」とメッセージ

Topへ