Private dirWatcher As New System.IO.FileSystemWatcher()

　　接下来，通过设置Path属性设置FileSystemWatcher来监控指定目录。可以设置IncludeSubdirectories属性监控指定目录下的所有子目录。

dirWatcher.Path = "C:\Temp"
dirWatcher.IncludeSubdirectories = False

　　Filter属性指定目录内要监控的文件。这个属性接受通配符，所以所有的文本文件都可以通过将它设定为"*.txt"文件来监控。指定特殊文件名后只会对那个文件起作用。

dirWatcher.Filter = "*.txt"

　　NotifyFilter属性决定被监控的指定文件的属性。

dirWatcher.NotifyFilter = System.IO.NotifyFilters.LastAccess
Or _
System.IO.NotifyFilters.LastWrite

　　在设定FileSystemWatcher属性后，添加事件处理器来捕获事件，并确定它能够激发事件。

AddHandler dirWatcher.Created, AddressOf Me.OnCreation
AddHandler dirWatcher.Changed, AddressOf Me.OnCreation
dirWatcher.EnableRaisingEvents = True

　　最后，添加一个新的子程序来处理事件。

Public Shared Sub OnCreation(ByVal source As Object, _
ByVale As System.IO.FileSystemEventArgs)
Debug.WriteLine("File: " & e.FullPath
& " " & e.ChangeType)
End Sub