jj: filewatcher

TestGUI/FolderWatcher.vb

@@ -1,30 +1,37 @@
 Imports System.ComponentModel
 Imports System.IO
 Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Filesystem.FileWatcherFilters
 Imports DigitalData.Modules.Logging
 
 Public Class FolderWatcher
 
     Private _LogConfig As LogConfig
+    Private _Logger As Logger
     Private _Watcher As FileWatcher
 
-    Public Sub FileCreated(_sender As Object, _e As FileSystemEventArgs)
-        ListBox1.Items.Add($"File created: {_e.FullPath}")
-    End Sub
-
-    Public Sub FileChanged(_sender As Object, _e As FileSystemEventArgs)
-        ListBox1.Items.Add($"File changed: {_e.FullPath}")
-    End Sub
-
+    <STAThread()>
     Private Sub FolderWatcher_Load(sender As Object, e As EventArgs) Handles Me.Load
         _LogConfig = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN")
-        _Watcher = New FileWatcher(_LogConfig, "E:\Watcher")
+        _LogConfig.Debug = True
+        _Logger = _LogConfig.GetLogger()
+        Dim oFilters As New List(Of BaseFileFilter) From {
+            New TempFileFilter,
+            New OfficeFileFilter
+        }
+        _Watcher = New FileWatcher(_LogConfig, "E:\Watcher", oFilters)
 
         _Watcher.Add("*.*")
 
+        AddHandler _Watcher.FileSaved, AddressOf HandleFileSaved
+
         _Watcher.Start()
     End Sub
 
+    Private Sub HandleFileSaved(FullName As String, IsSpecial As Boolean)
+        _Logger.Info("{1}File Saved: {0}", FullName, IIf(IsSpecial, "Special ", ""))
+    End Sub
+
     Private Sub FolderWatcher_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
         _Watcher.Stop()
     End Sub