Function FileLocked(strFileName As String) As Boolean

On Error Resume Next



' If the file is already opened by another process,

' and the specified type of Access is not allowed,

' the Open operation fails and an error occurs.

Open strFileName For Binary Access Read Lock Read As #1

Close #1



' If an error occurs, the document is currently open.

If Err.Number <> 0 Then

    FileLocked = True

    Err.Clear

End If

End Function

Private Sub btnDosyaAcikmi_Click()

If Not FileLocked(Me.txtdosya) Then

MsgBox (Me.txtdosya & "dosyas kapal?")

Else

MsgBox (Me.txtdosya & "dosyası açık")

End If

End Sub