MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -834,8 +834,8 @@ Public Class frmFlowForm
                 ShowErrorMessage(ex)
             End Try
 
-            If TimerFolderwatch.Enabled = False Then
-                TimerFolderwatch.Start()
+            If TimerCheckFolderWatchTable.Enabled = False Then
+                TimerCheckFolderWatchTable.Start()
             End If
         End If
 
@@ -846,7 +846,7 @@ Public Class frmFlowForm
         My.UIConfigManager.Save()
     End Sub
 
-    Private Sub TimerFolderwatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderwatch.Tick
+    Private Sub TimerFolderwatch_Tick(sender As Object, e As EventArgs) Handles TimerCheckFolderWatchTable.Tick
 
         Try
             ' JenneJ, 11.02.2019:
@@ -864,8 +864,7 @@ Public Class frmFlowForm
 
                 If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
                     My.Application.Globix.ABORT_INDEXING = False
-                    ' Dim fil As String
-                    Me.TimerFolderwatch.Stop()
+                    TimerCheckFolderWatchTable.Enabled = False
                     For Each row As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows
                         Dim FILEGUID = row.Item("GUID")
                         Dim oDel = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
@@ -911,7 +910,9 @@ Public Class frmFlowForm
                         End If
 
                     Next
-                    Me.TimerFolderwatch.Start()
+                    If TimerCheckFolderWatchTable.Enabled = False Then
+                        TimerCheckFolderWatchTable.Start()
+                    End If
                 End If
                 'tslblFW.Visible = True
             Else