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