Email Indexing, Check Windream before profile select

Global_Indexer/frmIndex.vb

@@ -65,6 +65,7 @@ Public Class frmIndex
 
         _Logger.Warn(oMessage)
         _Logger.Error(Exception.Message)
+
         MsgBox(oMessage, MsgBoxStyle.Critical, Text)
     End Sub
 
@@ -1646,14 +1647,22 @@ Public Class frmIndex
             ClearError()
 
             pnlIndex.Controls.Clear()
-            Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid
+            Dim sql As String = "Select WINDREAM_DIRECT, ZIEL_PFAD, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid
             Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
+            Dim oDocType As DataRow = oDoctypes.Rows.Item(0)
 
-            WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
-            CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
+            Dim oDestination As String = oDocType.Item("ZIEL_PFAD")
+            Dim oNormalized As String = WINDREAM.GetNormalizedPath(oDestination)
+            Dim oNewDestination = Path.Combine(WINDREAM.ClientBasePath, oNormalized)
+
+            If Directory.Exists(oDestination) = False Then
+                MsgBox($"Profile Path [{oNewDestination}] is not available. Please select another profile.", MsgBoxStyle.Exclamation, Text)
+                ComboboxDoctype.SelectedIndex = -1
+            End If
+
+            WDDirect = oDocType.Item("WINDREAM_DIRECT")
+            CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
             Refresh_IndexeMan(oSelectedItem.Guid)
-
-
         End If
     End Sub