Version .20, Grundkonfigurationen Checken, speichern der CONFIG.Variante Preview etc

Global_Indexer/frmStart.vb

@@ -405,18 +405,19 @@ Public Class frmStart
         End If
 
         If CURRENT_SCAN_FOLDERWATCH = String.Empty Then
-            FWSCAN_started = False
+            CONFIG.Config.FolderWatchScanStarted = False
+            CONFIG.Save()
         End If
 
         If CURRENT_FOLDERWATCH <> "" Or CURRENT_SCAN_FOLDERWATCH <> "" Then
-            If FW_ISSTARTED = True Then
+            If FWFunction_STARTED = True Then
                 tslblFW.Visible = True
             Else
                 tslblFW.Visible = False
             End If
 
             Try
-                If FWSCAN_started = True Then
+                If CONFIG.Config.FolderWatchScanStarted = True Then
                     If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH, False)
                     Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
                     ' Process the list of files found in the directory.
@@ -626,7 +627,7 @@ Public Class frmStart
             End If
         Else
             Try
-                If FW_started = True Or FWSCAN_started = True Then
+                If FW_started = True Or CONFIG.Config.FolderWatchScanStarted = True Then
                     'Prüfen ob alle Files abgearbeitet wurden
                     Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
                     DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
@@ -667,7 +668,12 @@ Public Class frmStart
                     tslblFW.Visible = False
                 End If
             Catch ex As Exception
-                MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
+
+                Else
+                    MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                End If
+
             End Try
         End If
 
@@ -707,12 +713,18 @@ Public Class frmStart
             Me.TopMost = True
         End If
         loaded = True
-        Opacity = 0.65
+        Opacity = 0.6
 
         ClassHelper.Refresh_RegexTable()
 
         Start_Folderwatch()
         ClassWindowLocation.LoadFormLocationSize(Me)
+        Try
+            Me.LabelControl1.Location = New Point(13, 37)
+        Catch ex As Exception
+            Me.btnChoosefiles.Location = New Point(269, 37)
+        End Try
+
     End Sub
     Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
         frmHistory.ShowDialog()