vb.net - FileSystemWatcher - 没有 API 就无法做到这一点？

Question

我想检查是否有多个文件夹正在接收新文件，然后进行处理。这工作正常，我已经声明了 FileSystemWatcher 并设置了 EventHandler。现在，一切正常，如果我在那里创建一个新文件，它会注意到它。

然后，我注意到当我粘贴文件时，它没有注意到它。我已经在谷歌上搜索过，我读到到目前为止内置的 FileSystemWatcher 是不可能的。所以我考虑使用 API 来管理这个问题，但实际上我不知道如何处理这个问题或从哪里开始。这个程序是为了一份工作而设计的，所以我真的需要它。我感谢任何帮助、链接或其他东西来处理这个问题。

谢谢!如果有不清楚的地方，请避免投反对票并询问我;)

Answer 1

以下工作按预期完成(.net v4.5)。粘贴到目录中会触发 Change 事件。

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim fw As New FileSystemWatcher
    fw.Path = "c:\Temp"
    fw.Filter = "*.*"
    fw.IncludeSubdirectories = False

    AddHandler fw.Created, New FileSystemEventHandler(AddressOf FileWatcherFileChange)
    AddHandler fw.Deleted, New FileSystemEventHandler(AddressOf FileWatcherFileDeleted)
    AddHandler fw.Renamed, New RenamedEventHandler(AddressOf FileWatcherFileRenamed)
    AddHandler fw.Error, New ErrorEventHandler(AddressOf FileWatcherError)

    fw.EnableRaisingEvents = True

End Sub

Private Sub FileWatcherFileChange(ByVal source As Object, ByVal e As FileSystemEventArgs)

    MsgBox("Change")

End Sub

Private Sub FileWatcherFileDeleted(ByVal source As Object, ByVal e As FileSystemEventArgs)

    MsgBox("Deleted")

End Sub

Private Sub FileWatcherFileRenamed(ByVal source As Object, ByVal e As FileSystemEventArgs)

    MsgBox("Renamed")

End Sub

Private Sub FileWatcherError(ByVal source As Object, ByVal e As System.IO.ErrorEventArgs)

    MsgBox("Error")

End Sub 

下课