主题：[注意]文件监视器的BUG

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

 

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

重命名只会返回目录，没有文件名，不起作用！

我说的是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