Use Logger Module

app/DD_PM_WINDREAM/ClassWindream_allgemein.vb

@@ -51,12 +51,13 @@ Public Class ClassWindream_allgemein
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
                 Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-                If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
+                LOGGER.Debug(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
                 ' Connection-Objekt instanziieren
                 Me.oConnect = CreateObject("Windream.WMConnect")
                 'MsgBox("windrem init 'ed")
             Catch ex As Exception
-                If LOG_ERRORS_ONLY = False Then ClassLogger.Add($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False)
+LOGGER.Error(ex)
+                LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False)
                 Return False
             End Try
 
@@ -85,7 +86,7 @@ Public Class ClassWindream_allgemein
                 End If
 
                 If LOG_ERRORS_ONLY = False Then
-                    ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
+                    LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
                 End If
 
                 ' AUSGABE VON SYSTEMINFORMATIONEN
@@ -110,15 +111,17 @@ Public Class ClassWindream_allgemein
                     ' Ordnertypen ausgelesen werden
                     Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
                 Catch ex As Exception
+LOGGER.Error(ex)
                     Return False
                 End Try
 
             End If
 
-            If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> windream login successful", False)
+            LOGGER.Debug($" >> windream login successful", False)
             Return True
 
         Catch ex As Exception
+LOGGER.Error(ex)
             If Err.Number = -2147220985 Then
                 MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine &
                        "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
@@ -139,7 +142,7 @@ Public Class ClassWindream_allgemein
 
             If WMSESSION_STARTSTOP_STARTUP = True Then
                 'And userExistsInServerUserGroup Is Nothing
-                ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False)
+                LOGGER.Info(">> WINDREAM-Start on ApplicationStart is active!", False)
 
                 Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
                 Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
@@ -150,7 +153,8 @@ Public Class ClassWindream_allgemein
             End If
             Create_Session()
         Catch ex As Exception
-            ClassLogger.Add("Error while starting up WMCC and IndexService: " & ex.Message, True)
+LOGGER.Error(ex)
+            LOGGER.Info("Error while starting up WMCC and IndexService: " & ex.Message, True)
         End Try
     End Function
     Public Function Stop_WMCC_andCo()
@@ -169,7 +173,8 @@ Public Class ClassWindream_allgemein
                 owindreamControlCenter.ExitCC(0)
             End If
         Catch ex As Exception
-            ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
+LOGGER.Error(ex)
+            LOGGER.Info("Error while Stopping WMCC and IndexService: " & ex.Message, True)
         End Try
     End Function
 #End Region
@@ -189,6 +194,7 @@ Public Class ClassWindream_allgemein
             Return Me.oDokumentTypen
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
             Return Nothing
         End Try
@@ -211,6 +217,7 @@ Public Class ClassWindream_allgemein
             Return objektTypenStr
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String")
             Return Nothing
         End Try
@@ -222,6 +229,7 @@ Public Class ClassWindream_allgemein
             Dim vType = oAttribute.getVariableValue("dwAttrType")
             Return vType
         Catch ex As Exception
+LOGGER.Error(ex)
             Return Nothing
         End Try
 
@@ -256,6 +264,7 @@ Public Class ClassWindream_allgemein
             WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, oNormalizedPath)
             Return True
         Catch ex As Exception
+LOGGER.Error(ex)
             Return False
         End Try
     End Function
@@ -303,6 +312,7 @@ Public Class ClassWindream_allgemein
             Return aIndexNames
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
             Return Nothing
         End Try
@@ -328,6 +338,7 @@ Public Class ClassWindream_allgemein
             Return Nothing
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
             Return Nothing
         End Try
@@ -351,6 +362,7 @@ Public Class ClassWindream_allgemein
             Next
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
         End Try
 
@@ -373,6 +385,7 @@ Public Class ClassWindream_allgemein
         Try
             Return Me.oSession.aLoggedin
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
         End Try
 
@@ -388,6 +401,7 @@ Public Class ClassWindream_allgemein
         Try
             Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
         End Try
 
@@ -468,6 +482,7 @@ Public Class ClassWindream_allgemein
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
             Return Nothing
         End Try