Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Check if a file is opened?
- Thread starter tleducq
- Start date
Function IsFileOpen(ByVal tFile As String) As Boolean
On Error GoTo IsOpen
Dim fFile As Integer
fFile = FreeFile()
Open tFile For Input Lock Read Write As fFile
Close fFile
Exit Function
IsOpen:
Resume Leave
Exit Function
Leave:
On Error Resume Next
IsFileOpen = True
End Function
On Error GoTo IsOpen
Dim fFile As Integer
fFile = FreeFile()
Open tFile For Input Lock Read Write As fFile
Close fFile
Exit Function
IsOpen:
Resume Leave
Exit Function
Leave:
On Error Resume Next
IsFileOpen = True
End Function
- Thread starter
- #3
- Status
Similar threads
