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
|
