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