PRivatedirWatcherAsNewSystem.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屬性后，添加事件處理器來捕獲事件，并確定它能夠激發事件。

AddHandlerdirWatcher.Created,AddressOfMe.OnCreation
AddHandlerdirWatcher.Changed,AddressOfMe.OnCreation
dirWatcher.EnableRaisingEvents=True

　　最后，添加一個新的子程序來處理事件。

PublicSharedSubOnCreation(ByValsourceAsObject,_
ByValeAsSystem.IO.FileSystemEventArgs)
Debug.WriteLine("File:"&e.FullPath
&""&e.ChangeType)
EndSub