ich lasse eine TXT mit jedem Zugriff erstellen, diese gibt mir das Datum, die uhrzeit und den benutzer an, welcher auf die datei zugegriffen hat.
Dies erledige ich per folgenden Code
Sub InTextdatei()
Dim sTxt As String
Dim name As String
Dim vorname As String
Dim nachname As String
Dim PCName As String
Dim Zeit As String
Dim User As String
name = Environ(16)
User = Environ(45)
PCName = Environ(21)
Zeit = Now
On Error GoTo ERRORHANDLER
If InStr(name, "=") Then
name = Right(name, Len(name) - InStr(name, "="))
vorname = Left(name, InStr(name, " "))
nachname = Right(name, Len(name) - InStr(name, " ") + 1)
End If
Open "\\XXX\XXX\Statistik\log08.txt" For Append As #1
sTxt = User & ";" & PCName & ";" & Now & ";" & name
sTxt = Now & ";" & Environ("Username") & ";" & Application.UserName
Print #1, sTxt
Close
Exit Sub
ERRORHANDLER:
MsgBox "Textdatei konnte nicht erstellt werden!"
End Sub
Wie kann ich den Code so verändern das dieser mir auch die Auslogzeit anzeigt, sodass nicht nur nachvollziehbar ist wer wann die Datei geöffnet hat, sondern auch wie lange diese durch den Benutzer geöffnet war.
Vielen Dank an alle Helfer.
MfG aus Berlin
Tom