主题：[注意]文件监视器的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

呃，会触发重命名和新增文件 的事件啊。

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

 

不可能，会返回文件名啊

 

自己加一个重命名事件

 

全局代码

 

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