Hallo zusammen,
ich möchte prüfen, ob eine Datei bereits geöffnet ist (ist ja auch recht einfach):
---------------------------------------------------------------------------------------------
Public Function IsFileOpen(ByRef Path As Variant) As Boolean
Dim FileNr As Integer
Dim ErrorNr As Long
On Error Resume Next
FileNr = FreeFile
Open Path For Input Lock Write As #FileNr
ErrorNr = Err.Number
Close #FileNr
On Error GoTo 0
Select Case ErrorNr
Case 0
Case 70
IsFileOpen = True
Case Else
Err.Raise ErrorNr
End Select
End Function
---------------------------------------------------------------------------------------------
Jetzt möchte aber auch wissen, WER die Datei (Windows UserName) geöffnet hat.
Kann mir einer weiter helfen?
Gruß
Balumba
