jj: folder watcher

TestGUI/FolderWatcher.vb

@@ -0,0 +1,31 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Logging
+
+Public Class FolderWatcher
+
+    Private _LogConfig As LogConfig
+    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
+
+    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")
+
+        _Watcher.Add("*.*")
+
+        _Watcher.Start()
+    End Sub
+
+    Private Sub FolderWatcher_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        _Watcher.Stop()
+    End Sub
+End Class