问FileSystemWatcher不触发用VB.NET创建的Windows中的事件

EN

Imports System.IO

Public Class TestFileWatcher

    Dim WithEvents watcher As System.IO.FileSystemWatcher
    Dim myLog As System.Diagnostics.EventLog
    Dim folderName As String
    Dim fileTypes As String

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        myLog = New System.Diagnostics.EventLog()
        If Not EventLog.SourceExists("My Test Log") Then
            EventLog.CreateEventSource("My Test Log", "Application")
        End If
        myLog.Source = "My Test Log"
        folderName = "C:\temp\"
        fileTypes = "*.*"
        Try
            watcher = New System.IO.FileSystemWatcher()
            DefineWatcher()
            watcher.EnableRaisingEvents = True
            myLog.WriteEntry("started watcher")
        Catch
            ErrorHandler(e)
            System.Environment.Exit(-1)     '0=successful exit
        End Try
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        StopWatcher()
    End Sub

    Public Sub StopWatcher()
        watcher.Dispose()
    End Sub

    Public Sub RecordOnEventLog(ByVal str As String)
        myLog.WriteEntry(str)
    End Sub

    Protected Sub ErrorHandler(ByVal e As ApplicationException)
        Dim err As String
        err = "ERROR" + vbCrLf
        err += "Message: " + e.Message + vbCrLf
        err += "Source: " + e.Source + vbCrLf
        err += "Method: " + e.TargetSite.Name + vbCrLf
        err += "Stack Trace: " + e.StackTrace + vbCrLf
        err += "Error String: " + e.ToString + vbCrLf
        err += "Application shut down at " & My.Computer.Clock.GmtTime.ToString
        myLog.WriteEntry(err)
    End Sub

    Public Sub DefineWatcher()
        watcher.BeginInit()
        watcher.Path = folderName
        watcher.Filter = fileTypes
        watcher.IncludeSubdirectories = False
        watcher.NotifyFilter = System.IO.NotifyFilters.FileName
        watcher.NotifyFilter = watcher.NotifyFilter Or System.IO.NotifyFilters.Attributes
        watcher.NotifyFilter = watcher.NotifyFilter Or System.IO.NotifyFilters.CreationTime
        watcher.NotifyFilter = watcher.NotifyFilter Or System.IO.NotifyFilters.Security
        AddHandler watcher.Created, AddressOf OnCreated
        AddHandler watcher.Deleted, AddressOf OnDeleted
        watcher.EndInit()
    End Sub

    Public Sub OnCreated(src As Object, e As FileSystemEventArgs)
        RecordOnEventLog("New file added to temp folder, path: " + e.FullPath)
    End Sub

    Public Sub OnDeleted(src As Object, e As FileSystemEventArgs)
        RecordOnEventLog("Item deleted")
    End Sub

End Class