如何暂停下面的事件:
重命名事件
全局代码
Public Sub watcher_Renamed(sender As object, e As System.IO.RenamedEventArgs )
msgbox("File Renamed: Old Name: " + e.OldName + " New Name: " + e.Name)
End Sub
在AfterOpenProject 中调用
Dim watcher As new System.IO.FileSystemWatcher()
watcher.Path = "d:\Test"
addhandler watcher.Renamed, addressof watcher_Renamed
watcher.EnableRaisingEvents = True