如何判断一个文件是否被别的程序打开
比如一个文本文件,
我做过实验,在一个程序中写入文本文件,在另一程序中读取不会出错
程序1
Dim myRecord As Record
Open filePathName For Random As #1 Len = Len(myRecord)
For RecordNumber = 1 To 5
myRecord.ID = RecordNumber
myRecord.Name = "My Name" & RecordNumber
Put #1, RecordNumber, myRecord
MsgBox "ok" '
Next RecordNumber
Close #1
程序2
Dim i As Integer
Dim recordCounts As Integer
Dim tempRecord As Record
On Error GoTo line1
Open filePathName For Random As #1 Len = Len(tempRecord)
recordCounts = LOF(1) / Len(tempRecord)
For i = 0 To 5
Get #1, , tempRecord
Next
Close #1
Exit Sub
line1:
DoEvents
Resume