Imports System.IO
Imports Independentsoft
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
            FolderWatcher.EnableRaisingEvents = False
            FW_started = False
            'FolderWatch neu instanzieren
            FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
            ClassLogger.Add(" >> FolderWatch neu instanziert", False)
            FolderWatcher.IncludeSubdirectories = False
            FolderWatcher.EnableRaisingEvents = True
            AddHandler FolderWatcher.Created, AddressOf OnCreated
            FW_started = True
            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
                MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation)
                Return False
            End If
            If FolderWatcher Is Nothing Then
                FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
                ClassLogger.Add(" >> FolderWatch Gestartet", False)
                FolderWatcher.IncludeSubdirectories = False
                FolderWatcher.EnableRaisingEvents = True
                AddHandler FolderWatcher.Created, AddressOf OnCreated
                FW_started = True
                SaveConfigValue("FW_started", "True")
                Return 1
            End If
            If FolderWatcher.EnableRaisingEvents = False Then
                ' Dim watcher As New FileSystemWatcher()
                ' watcher.Path = CURRENT_FOLDERWATCH
                FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
                ClassLogger.Add(" >> FolderWatch Gestartet", False)
                FolderWatcher.IncludeSubdirectories = False
                FolderWatcher.EnableRaisingEvents = True
                AddHandler FolderWatcher.Created, AddressOf OnCreated
                FW_started = True
                SaveConfigValue("FW_started", "True")
                Return 1
            Else
                'Gestartet also Stoppen
                FolderWatcher.EnableRaisingEvents = False
                FW_started = False
                ClassLogger.Add(" >> FolderWatch gestoppt", False)
                SaveConfigValue("FW_started", "False")
                Return 0
            End If
            'If watcher.EnableRaisingEvents = False Then
            '    watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
            '    ClassLogger.Add(" - vFolderWatch.Gestartet", False)
            '    watcher.IncludeSubdirectories = False
            '    watcher.EnableRaisingEvents = True
            '    AddHandler watcher.Created, AddressOf OnCreated
            '    Return 1
            'Else
            '    'Gestartet also Stoppen
            '    watcher.EnableRaisingEvents = False
            '    Return 0
            'End If
        Catch ex As Exception
            MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return 99
        End Try
    End Function
    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 handleType As String
            If e.FullPath.EndsWith(".msg") Then
                handleType = "@FW_OUTLOOK_MESSAGE@"
            Else
                handleType = "@FW_SIMPLEINDEXER@"
            End If
            'Die Datei übergeben
            If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False)
            If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then
                ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
            Else
                Console.WriteLine("File existiert bereits")
            End If
            'frmMain.MyNewTimer()

            'ShowIndexForm()
            'Dim file = CURRENT_FILENAME
            'Dim frm As New frmIndex
            'frm.ShowDialog()
            ''Jetzt die Anhänge auslesen
            'If file.EndsWith(".msg") Then
            '    Dim _msg As New Msg.Message(CURRENT_FILENAME)
            '    Dim i1 As Integer = 1
            '    For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
            '        If attachment.DisplayName Is Nothing Then
            '            If Not attachment.LongFileName Is Nothing And Not attachment.LongFileName.Contains("inline") Then
            '                Dim tempfile As String = Path.Combine(Path.GetTempPath, attachment.LongFileName)
            '                If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
            '                attachment.Save(tempfile)
            '                CURRENT_FILENAME = "@ATTMNTEXTRACTED@" & tempfile
            '                frmIndex.ShowDialog()
            '                i1 += 1
            '            End If
            '        End If
            '    Next


            'End If

            ''Prüfen ob alle Files abgearbeitet wurden
            'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & Environment.UserName & "'")
            'If DT.Rows.Count > 0 Then
            '    For Each row As DataRow In DT.Rows
            '        MsgBox("Abbrechen nicht möglich:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation)
            '        CURRENT_FILENAME = row.Item(1)
            '        frmIndex.ShowDialog()
            '    Next
            'End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created")
        End Try

    End Sub
   
End Class