Datei offen von anderem Benutzer
25.08.2004 13:36:43
anderem
Ich versuche eine Routine zu basteln, welche mir zurück gibt, ob eine Datei von jemand anderem (Netzwerk)oder von mir verwendet wird. Ich habe das bis jetzt mit diesem Code gemacht....
Private Function Datei_Geoeffnet(DerPfad As String) As Boolean
'*** Nach einem Beipiel von Jonatan West
'*** Aufbereitet von Peter Haserodt
Dim iFrei As Long
iFrei = FreeFile
On Error GoTo OpenError
Open DerPfad For Binary Access Read Lock Read As #iFrei
Close #iFrei
Datei_Geoeffnet = False
Exit Function
OpenError:
' Dies wird immer durchgeführt, wenn die Datei geöffnet ist
' oder die Pfadangabe falsch ist
' Ergo sollte man vor dem Functionsaufruf überprüfen ob die Datei überhaupt existiert
Datei_Geoeffnet = True
End Function
Doch es wird nicht unterschieden ob ich diese schon offen habe oder ob ein anderer Benutzer drauf sitzt. (Fehler 9 und Abbruch)
Was gibt es sonst für Möglichkeiten?
Gruss
Stephan