file opened

hello !

With visual basic 5
How to know if a file is opened ?

thanks for yours answers

Take a look at this thread.

Code:

---

Function FileIsOpen(file As String) As Boolean
On Error Resume Next
Dim n As Integer
    n = FreeFile
    Open file For Binary Access Read Write Lock Read Write As n
        If Err Then FileIsOpen = True
    Close n
End Function

---