LOCK

LOCK([#] filenumber [,recordrange])

Locks access to parts of a file for other processes.


filenumberThe number of the file (Integer).
recordrange(Optional) Refers to a range of records (or bytes) that are to be locked.

REMARKS
* Prevents another process from accessing all or part of the open file that corresponds to the filenumber argument.
* You can use the UNLOCK statement to control access to a file.
* The equivalent .NET function is Microsoft.VisualBasic.FileSystem.Lock
* For the Microsoft documentation refer to learn.microsoft.com

Sub Testing() 

Dim MyRecord As udtRecord
Dim RecordNumber As Integer

'Open "C:\Temp\MyText.txt" For Output As #1 'Close #1 '
'Open "C:\Temp\MyText.txt" For Binary As #1 'RecordNumber = 1 'MyRecord.ID = "001"
'MyRecord.Name = "Name1"
'Put #1, , MyRecord
'MyRecord.ID = "002"
'MyRecord.Name = "Name2"
'Put #1, , MyRecord
'Close #1

Open "C:\Temp\MyText.txt" For Binary Shared As #1 Len = Len(MyRecord)

RecordNumber = 1 ' Define record number.
Lock #1, RecordNumber ' Lock record.
Get #1, RecordNumber, MyRecord ' Read record.
MyRecord.ID = 111 ' Modify record.
MyRecord.Name = "New Name1"
Put #1, RecordNumber, MyRecord ' Write modified record.
Unlock #1, RecordNumber ' Unlock current record.
Close #1 ' Close file.

End Sub

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited Top