Private WithEvents fw As IO.FileSystemWatcher Private Shared Sub OnChanged(source As Object, e As IO.FileSystemEventArgs) Handles fw.Changed '更改指定路径中的目录和文件时引发该事件 MsgBox(e.Name)End Sub