■Lock Read で開く (他からのReadはできないがWriteはOK。 )
Option Compare Database
Option Explicit
Private fno As Integer
Private Sub ExTextRead()
Dim s1 As String
fno = FreeFile
Open "c:\test.txt" For Input Lock Read As fno
End Sub
Private Sub コマンド0_Click()
ExTextRead
End Sub
Private Sub コマンド3_Click()
Close fno
End Sub
・メモ帳で開くと「プロセスはファイルにアクセスできません。別のプロセスが使用中です。」とエラーになります。