Lock #filenum , record
Lock #filenum , start To end

filenum
record
start
end

Lock临时限制其他线程或程序访问文件或文件的一部分，通常允许对其进行安全写入。

修改数据后，应发出与Lock相同参数的Unlock.

注意：此命令并不总是可以正常工作，无论是记录还是预期。目前似乎已经破裂了。

''e.g.锁定一个文件，读取100个字节并解锁它。
'' To run, make sure there exists a file called 'file.ext'
''在当前目录中至少有100个字节。

Dim array(1 To 100) As Integer
Dim f As Integer, i As Integer
f = FreeFile
Open "file.ext" For Binary As #f
Lock #f, 1 To 100
For i = 1 To 100
    Get #f, i, array(i)
Next
Unlock #f, 1 To 100
Close #f

• 目前，FB不能隐式地锁定整个文件
  
• 在随机模式下，FB无法锁定一系列记录
  
  

• Open
  
• Unlock
  
• ScreenLock