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