1、文件监视器没有重命名事件。

2、FileChanged事件BUG:

  除外txt文件，测试了Office文件、rar文件，不能返回触发事件的文件名，返回的是临时文件名！

三个事件FileChanged、FileDeleted、FileCreated的代码如下：

Dim dr As DataRow
dr = DataTables("表A").AddNew()
dr("FullPath") = e.FullPath
dr("FtpPath") = e.Name
dr("ChangeType") = "Changed"

见图：

此主题相关图片如下：excelchanged.png

此主题相关图片如下：wordchanged.png

不可能，会返回文件名啊

自己加一个重命名事件

全局代码

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

调用

Dim watcher As new System.IO.FileSystemWatcher()
watcher.Path = "d:\\Test"
addhandler watcher.Renamed, addressof watcher_Renamed
watcher.EnableRaisingEvents = True

http://www.cnblogs.com/pdfw/archive/2010/02/10/1667209.html

我说的是Foxtable自带的文件监视器存在的BUG！

我自己的文件监视器已经做好！

全局代码：

Public Sub OnDeleted(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)
\'msgbox("OnChanged" & e.FullPath & "e.ChangeType:" & e.ChangeType.ToString())
End Sub

Public Sub OnCreated(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)
\'msgbox("OnChanged" & e.FullPath & "e.ChangeType:" & e.ChangeType.ToString())
End Sub

Public Sub OnRenamed(ByVal source As Object, ByVal e As System.IO.RenamedEventArgs)
\'msgbox("OnChanged" & e.FullPath & "e.ChangeType:" & e.ChangeType.ToString())
End Sub

Public Sub OnCreated(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)

\'msgbox("OnChanged" & e.FullPath & "e.ChangeType:" & e.ChangeType.ToString())
End Sub

调用和启用：

Dim watcher As new System.IO.FileSystemWatcher()
watcher.Path = "D:\\文件监视器"
watcher.Filter = "*.*"
watcher.IncludeSubdirectories = True
addhandler watcher.Changed, addressof OnChanged
addhandler watcher.Renamed, addressof OnRenamed
addhandler watcher.Deleted, addressof OnDeleted
addhandler watcher.Created, addressof OnCreated
watcher.EnableRaisingEvents = True