快速求助,文件是否被打开,应该怎样判断?解决就结贴

Question

RT,怎样判断一个文件是否处于打开状态?

Answer 1

可以这样判断文件是否已经打开：Function IsOpen(sFile As String) As Boolean
Dim fFile As Integer
IsOpen = False
fFile = FreeFile()
On Error GoTo ErrOpen
Open sFile For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:
If Err.Number <> 70 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Else
IsOpen = True
End If
End Function