Durch wen ist Datei gesperrt?
29.05.2006 16:48:06
Crazyangel
wahrscheinlich steh ich einfach nur auf dem Schlauch, aber irgendwie komm ich grad nicht weiter.
Mit folgender Function prüfe ich, ob eine Datei bereits durch einen anderen Benutzer geöffnet ist:
(Quelle: https://www.herber.de/forum/archiv/84to88/t87729.htm)
Function DateiIstFrei(sDateiname As String) As Boolean
Dim hFile As Integer
On Error Resume Next
hFile = FreeFile()
Open sDateiname For Random Access Read Lock Read Write As #hFile
If Err Then
DateiIstFrei = False
Else
DateiIstFrei = True
End If
Close #hFile
End Function
Kann ich irgendwie abfragen, durch wen die Datei geöffnet ist, ähnlich der Abfrage, wenn ich eine bereits geöffnete Datei öffnen will?
Vielen Dank für Eure Hilfe!
Gruss, Marco