Ein einfacher Logger

Veröffentlicht von DerUli am 21. Februar 2012 Schreibe einen Kommentar (0) Kommentare ansehen

Ein einfacher Logger, dem man den zu loggenden String übergibt. Alles andere macht er selbst (Datum, Uhrzeit anhängen).
Alternativ kann dem Logger auch der Dateiname übergeben werden, in welche Datei er das loggen soll.

' Ein Verweis auf "Microsoft Scripting Runtime" muss gesetzt werden!

Private Sub Log2(ByVal iMeldung As String, Optional ByVal iDateiname As String = "log.log")
Dim FSO As FileSystemObject
Dim TS As TextStream
 
Set FSO = New FileSystemObject
If Not FSO.FileExists(iDateiname) Then FSO.CreateTextFile iDateiname, False
Set TS = FSO.OpenTextFile(iDateiname, ForAppending)
TS.WriteLine CStr(Now) & ": " & iMeldung
TS.Close
Set FSO = Nothing
 
End Sub

' Ein Verweis auf "Microsoft Scripting Runtime" muss gesetzt werden!

Private Sub Log2(ByVal iMeldung As String, Optional ByVal iDateiname As String = "log.log")
Dim FSO As FileSystemObject
Dim TS As TextStream

Set FSO = New FileSystemObject
If Not FSO.FileExists(iDateiname) Then FSO.CreateTextFile iDateiname, False
Set TS = FSO.OpenTextFile(iDateiname, ForAppending)
TS.WriteLine CStr(Now) & ": " & iMeldung
TS.Close
Set FSO = Nothing

End Sub