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!

Register Log in
  • 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!

Search results for query: *

  • Users: rpmcq
  • Order by date
  1. rpmcq

    Check if a file is opened?

    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

Part and Inventory Search

Back
Top