' filewatch.vb Imports System Imports System.IO Public Class FileWatcher Shared Sub Main() Dim watcher As FileSystemWatcher = new FileSystemWatcher() watcher.Path = "c:\" watcher.Filter = "*.txt" watcher.IncludeSubdirectories = true watcher.NotifyFilter = NotifyFilters.FileName AddHandler watcher.Created, AddressOf DoWork AddHandler watcher.Deleted, AddressOf DoWork watcher.EnableRaisingEvents = true Console.Read() ' キー入力があるまで待つ End Sub Shared Sub DoWork(source As object, e As FileSystemEventArgs) Console.WriteLine(e.ChangeType.ToString()) Console.WriteLine(e.FullPath) End Sub End Class ' コンパイル方法:vbc /r:System.dll filewatch.vb