Lock、UnLockステートメント
構文
Lock [#]filenumber[,recordrange]
UnLock [#]filenumber[,recordrange]
Filenumberには、任意のファイル番号を指定します。
recordrangeは省略可能です。ロックまたはアンロックするレコード番号を指定します。
解説
LockステートメントはOpenステートメントで開いたファイルの一部または全部を、他プロセスのアクセスからロックします。
UnLockステートメントは、Lockステートメントで制御したロックを解除します。
Lockステートメント、UnLockステートメントは、複数のプロセスが同じファイルにアクセスできる環境で使用します。
サンプル
次の例は、Openステートメントで開いたC:\Test.datをロックします。
Sub Sample()
Dim buf
Open "C:\Test.dat" For Random Shared As #1 Len = 6
Lock #1, 4 '４レコードめをロックします
Get #1, 4, buf
Unlock #1, 4 '４レコードめのロックを解除します
Close #1
MsgBox buf
End Sub