MS 24.07

Global_Indexer/ClassFolderWatcher.vb

@@ -4,6 +4,7 @@ Imports System.Threading
 
 Public Class ClassFolderWatcher
     Public Shared FolderWatcher As FileSystemWatcher
+    Public Shared FolderWatcher_SCAN As FileSystemWatcher
     Public Shared Function Restart_FolderWatch()
         If FolderWatcher.EnableRaisingEvents = True Then
             'Gestartet also Stoppen
@@ -19,6 +20,21 @@ Public Class ClassFolderWatcher
             SaveConfigValue("FW_started", "True")
         End If
     End Function
+    Public Shared Function Restart_FolderWatchSCAN()
+        If FolderWatcher_SCAN.EnableRaisingEvents = True Then
+            'Gestartet also Stoppen
+            FolderWatcher_SCAN.EnableRaisingEvents = False
+            FWSCAN_started = False
+            'FolderWatch neu instanzieren
+            FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+            ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
+            FolderWatcher_SCAN.IncludeSubdirectories = False
+            FolderWatcher_SCAN.EnableRaisingEvents = True
+            AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
+            FWSCAN_started = True
+            SaveConfigValue("FWSCAN_started", "True")
+        End If
+    End Function
     Public Shared Function StartStop_FolderWatch()
         Try
             If CURRENT_FOLDERWATCH = "" Then
@@ -71,39 +87,64 @@ Public Class ClassFolderWatcher
             Return 99
         End Try
     End Function
-    'Private Sub folder_watch_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles vFolderWatch.Created
-    '    Try
-    '        'ersten Dateinamen übergeben
-    '        If LogErrorsOnly = False Then
-    '            ClassLogger.Add(" >> vFolderWatch1.Created " & e.Name, False)
-    '        End If
-    '        CURRENT_FILENAME = e.Name
-
-    '    Catch ex As Exception
-    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created")
-    '    End Try
-
-    'End Sub
+    Public Shared Function StartStop_FolderWatchSCAN()
+        Try
+            If CURRENT_SCAN_FOLDERWATCH = "" Then
+                MsgBox("Bitte definieren Sie einen Überwachungsordner für Scan-Eingänge:", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+            If FolderWatcher_SCAN Is Nothing Then
+                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                FolderWatcher_SCAN.IncludeSubdirectories = False
+                FolderWatcher_SCAN.EnableRaisingEvents = True
+                AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
+                FWSCAN_started = True
+                SaveConfigValue("FWSCAN_started", "True")
+                Return 1
+            End If
+            If FolderWatcher_SCAN.EnableRaisingEvents = False Then
+                ' Dim watcher As New FileSystemWatcher()
+                ' watcher.Path = CURRENT_FOLDERWATCH
+                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                FolderWatcher_SCAN.IncludeSubdirectories = False
+                FolderWatcher_SCAN.EnableRaisingEvents = True
+                AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
+                FWSCAN_started = True
+                SaveConfigValue("FWSCAN_started", "True")
+                Return 1
+            Else
+                'Gestartet also Stoppen
+                FolderWatcher_SCAN.EnableRaisingEvents = False
+                FWSCAN_started = False
+                ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
+                SaveConfigValue("FWSCAN_started", "False")
+                Return 0
+            End If
+           
+        Catch ex As Exception
+            MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return 99
+        End Try
+    End Function
     Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
         Try
             If e.FullPath.Contains("Thumbs.") Or e.FullPath.EndsWith(".tmp") Or e.FullPath.Contains("\~$") Then
                 Exit Sub
             End If
-            Dim praefix As String
+            Dim handleType As String
             If e.FullPath.EndsWith(".msg") Then
-                praefix = "@FW_OUTLOOK_MESSAGE@"
+                handleType = "@FW_OUTLOOK_MESSAGE@"
             Else
-                praefix = "@FW_SIMPLEINDEXER@"
+                handleType = "@FW_SIMPLEINDEXER@"
             End If
-            'ersten Dateinamen übergeben
-            CURRENT_FILENAME = e.FullPath
-            ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '" & Environment.UserName & "'", True)
+            'Die Datei übergeben
             If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False)
             If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then
-                Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & CURRENT_FILENAME & "','" & Environment.UserName & "','" & praefix & "')"
-                ClassDatabase.Execute_non_Query(ins, True)
+                ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
             Else
-                Console.WriteLine("File existiert bereeits")
+                Console.WriteLine("File existiert bereits")
             End If
             'frmMain.MyNewTimer()
 
@@ -145,18 +186,5 @@ Public Class ClassFolderWatcher
         End Try
 
     End Sub
-    Sub Check_Dropped_Files()
-        Try
-
-
-        Catch ex As Exception
-            MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-    End Sub
-    <STAThread()> _
-    Public Shared Sub ShowIndexForm()
-        Dim frm As New frmIndex
-        frm.ShowDialog()
-    End Sub
+   
 End Class