jj für MS 02.06

This commit is contained in:
Digital Data - Marlon Schreiber
2017-06-02 12:22:27 +02:00
parent f145c5d63b
commit 828ee2a37f
15 changed files with 304 additions and 557 deletions

View File

@@ -76,9 +76,9 @@ Public Class ClassLogger
If ClassLogger.OpenFile Then
Try
If ACHTUNG Then
ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information)
ClassLogger.StreamWriter.WriteLine(Now.ToString & "# ATTENTION #: " & information)
Else
ClassLogger.StreamWriter.WriteLine(information)
ClassLogger.StreamWriter.WriteLine(Now.ToString & information)
End If
ClassLogger.CloseFile()
Catch e As Exception
@@ -91,8 +91,8 @@ Public Class ClassLogger
Public Shared Sub Add(ByVal ex As Exception)
If ClassLogger.OpenFile Then
Try
ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
ClassLogger.StreamWriter.WriteLine("##### Fehler: " & ex.Message & " Source [" & ex.Source & "]")
ClassLogger.StreamWriter.WriteLine(Now.ToString & "##### Exception ####")
ClassLogger.StreamWriter.WriteLine(Now.ToString & "##### Fehler: " & ex.Message & " Source [" & ex.Source & "]")
ClassLogger.CloseFile()
Catch e As Exception
ClassLogger.ShowErrorMessage()