Vor dem Zugriff auf eine
bestimmte Datei ist es sinnvoll
zu prüfen, ob sich diese Datei evtl. bereits im Zugriff
befindet.
Dazu erfolgt ein sequentieller Dateizugriff, der ggf. einen
Fehler zurückgibt.
Achten Sie darauf, dass die angegebene Datei nicht freigegeben
ist,
da die Routine sonst keine Benutzung erkennt !
Function Datei_in_Benutzung(Dateiname As String) As Boolean
On Error Resume Next
Close #1
Open Dateiname For Random Access Read Lock Read Write As #1
Datei_in_Benutzung = Err.Number <> 0
Close #1
End Function
Sub Testen()
MsgBox Datei_in_Benutzung("c:\mappe1.xls")
End Sub
|
