MS DeleteScans CheckScanFolder

Global_Indexer/frmStart.vb

@@ -485,6 +485,34 @@ Public Class frmStart
                 tslblFW.Visible = True
             Else
                 tslblFW.Visible = False
+            End If
+            If FWSCAN_started = True Then
+                Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
+                ' Process the list of files found in the directory.
+                Dim fileName As String
+                For Each fileName In fileEntries
+                    For Each row As DataRow In DTEXCLUDE_FILES.Rows
+                        Dim content As String = row.Item(0).ToString.ToLower
+                        If fileName.ToLower.Contains(content) Then
+                            Exit Sub
+                        End If
+                    Next
+                    Dim handleType As String
+                    If fileName.ToLower.EndsWith(".msg") Then
+                        handleType = "|FW_OUTLOOK_MESSAGE|"
+                    Else
+                        handleType = "|FW_SIMPLEINDEXER|"
+                    End If
+                    'Die Datei übergeben
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> Adding file from Scanfolder after startup:" & fileName, False)
+                    If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
+                        ClassFilehandle.Decide_FileHandle(fileName, handleType)
+                    Else
+                        ClassLogger.Add(">> Scanfolder Startup: File already exists:" & fileName, False)
+                    End If
+                Next fileName
+
+
             End If
             If TimerFolderWatch.Enabled = False Then
                 TimerFolderWatch.Start()