Version 1.4.0.0

app/ClassWMResulthandler/clsWindream_Allgemein.vb

@@ -43,7 +43,7 @@ Public Class clsWindream_allgemein
         ' wenn ein Fehler bei der Initialisierung auftrat
         If Not Init() Then
             ' Nachricht ausgeben
-            Logger.Warn("Error while initializing WM-Class!!")
+            Logger.Warn("Error while initializing Logger WM-Class!!")
             ' das Programm "abschießen"
             Process.GetCurrentProcess.Kill()
         End If
@@ -59,14 +59,14 @@ Public Class clsWindream_allgemein
         Try
             Dim oHourDifference As Integer
             oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
-            If IsNothing(CURRENToWMConnect) Or oHourDifference >= 2 Then
-                Try
+            'If IsNothing(CURRENToWMConnect) Or oHourDifference >= 2 Then
+            Try
                     'Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
                     oWMSession = CreateObject("Windream.WMSession", GetCurrentServer)
                     ' Connection-Objekt instanziieren
                     oConnect = CreateObject("Windream.WMConnect")
-                    'MsgBox("windrem init 'ed")
-                Catch ex As Exception
+
+            Catch ex As Exception
                     Logger.Warn("Could not create WMObjects Session or Connect: " & ex.Message)
                     Return False
                 End Try
@@ -107,12 +107,11 @@ Public Class clsWindream_allgemein
                 CURRENToWMSession = oWMSession
                 CURRENToWMSession_Created = Now
                 Return True
-            Else
-                oWMSession = CURRENToWMSession
-
-                Logger.Debug("oWMSession already created!")
-                Return True
-            End If
+            'Else
+            '    Logger.Debug("oWMSession already created!")
+            '    oWMSession = CURRENToWMSession
+            '    Return True
+            'End If
 
 
 
@@ -331,7 +330,7 @@ Public Class clsWindream_allgemein
     '        '        Return sDrive & ":"
 
     '    Catch ex As Exception
-    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+
     '    End Try
 
     '    Return ""