MS Referenz W-Laufwerk

app/DD_PM_WINDREAM/ClassWindream_allgemein.vb

@@ -137,7 +137,8 @@ Public Class ClassWindream_allgemein
                         WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
             Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
 
-            If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
+            If WMSESSION_STARTSTOP_STARTUP = True Then
+                'And userExistsInServerUserGroup Is Nothing
                 ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False)
 
                 Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
@@ -223,6 +224,27 @@ Public Class ClassWindream_allgemein
         Catch ex As Exception
             Return Nothing
         End Try
+
+    End Function
+    Public Function CheckFileExists(Path As String)
+        Dim oNormalizedPath = Path
+        If Not Path.StartsWith("\") Then
+            oNormalizedPath = Path.Substring(2)
+        End If
+        Try
+            Dim oObjectId = 0
+            Dim oObjectDbId = 0
+            Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject")  'New WINDREAMLib.WMObject
+            If IsNothing(oSession) Then
+                If Create_Session() = False Then
+                    Return False
+                End If
+            End If
+            WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, oNormalizedPath)
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
     End Function
     ''' <summary>
     ''' Liefert alle Indexe eines Objekttypen.