Sub Test_DateiWirdBenutzt()
Dim dat As String
Dim pfad As String
pfad = "\\G2200\D\VBA_Test\"
dat = pfad & "nlicht.mdb"
MsgBox "Datei " & vbNewLine & dat & vbNewLine & _
"wird benutzt: " & DateiWirdBenutzt(dat)
End Sub
Function DateiWirdBenutzt(Datei As String) _
As Boolean
' = True: Datei ist bereits von einem
' anderen Benutzer geöffnet worden
On Error GoTo ErrHandler
Name Datei As Datei
Exit Function
ErrHandler:
Select Case Err.Number
Case 75
DateiWirdBenutzt = True
Case Else
Err.Raise Err.Number
End Select
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen