Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim hFSO, hFile, FileName, FilePath, Tag, Monat, UserName, UserGruppe
Tag = Day(Date)
If (Tag < 10) Then
Tag = "0" & Tag
End If
Monat = Month(Date)
If (Monat < 10) Then
Monat = "0" & Monat
End If
If EventText = "" Then
EventText = "Wertänderung"
End If
FilePath = "C:\Maschinendaten\Log-Dateien\"
FileName = "Audit " & Tag & Monat & Year(Date) & ".csv"
Set hFSO = CreateObject("Scripting.FileSystemObject")
If Not hFSO.FolderExists(FilePath) Then
hFSO.CreateFolder(FilePath)
End If
If Not hFSO.FileExists(FilePath & FileName) Then
Set hFile = hFSO.OpenTextFile(FilePath & FileName, ForWriting, True)
hFile.WriteLine("Datum, Uhrzeit, Benutzername, Benutzergruppe, Benutzeraktion, Variablenname, Variablenwert")
hFile.Close
End If
If SmartTags("Intern\UserName") = "" Then
UserName = "System"
UserGruppe = "System"
Else
UserName = SmartTags("Intern\UserName")
UserGruppe = SmartTags("Intern\UserGruppe")
End If
Set hFile = hFSO.OpenTextFile(FilePath & FileName, ForAppending, True)
If EventText = "Runtime gestartet" Then
If Not SmartTags("Intern\StartMessageDone") Then
hFile.WriteLine(Date & "," & Time & "," & UserName & "," & UserGruppe & "," & EventText & "," & VarName & "," & VarValue)
SmartTags("Intern\StartMessageDone") = True
End If
Else
hFile.WriteLine(Date & "," & Time & "," & UserName & "," & UserGruppe & "," & EventText & "," & VarName & "," & VarValue)
End If
hFile.Close