31 lines
963 B
VB.net
31 lines
963 B
VB.net
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 |