VB.Net FileSystemWatcher - 多个文件夹和多个文件

Question

我需要监控一个根文件夹，该文件夹下有多个文件夹，每个文件夹包含多个文件 (.csv) 这些文件正在使用其他第三方工具从服务器复制到工作站。我必须监视工作站根的文件夹，并且当在任何子文件夹中创建或更新 .csv 文件时，我必须将 .csv 文件数据（更新的或新的）写入 sql server 数据库。在将数据写入 sql 服务器时，我需要捕获更新/创建 .csv 文件的子文件夹名称。这样我就可以在一个数据库文件中拥有单独的文件夹数据。

在工作站 PC 上运行程序时，应用程序崩溃而没有任何特定的错误消息。而且由于该应用程序是在远程 PC 上运行的，因此我无法调试该应用程序以检查导致崩溃的线路。下面是代码：

Public Class FolderWatchAndProcess
Dim blnMonitorUpdated As Boolean = True
Dim blnMonitorCreated As Boolean = True
Dim blnShowMessage As Boolean
Dim strFullFileName As String
Dim strFileName As String
Dim strFolderName As String
Private Delegate Sub updateLabel(ByVal newLabel As String)

Private Sub updateLabelHandler(ByVal labelText As String)
    lblMetNo.Text = labelText
End Sub

Private Sub ReadAndInsertCSVData()
' This routine checks for duplicates and inserts new records into the sql server database
End Sub

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'lblMonitorPath.Text = "C:\RootFolder\"
    'btnStartWatching_Click(Nothing, Nothing)
    'Me.WindowState = FormWindowState.Minimized
End Sub

Private Sub btnStartWatching_Click(sender As Object, e As EventArgs) Handles btnStartWatching.Click
    btnStartWatching.Text = "Stop Watching"
    Dim aFileWatcherInstance As ArrayList = New ArrayList
    For Each sMonitorFolder As String In lstFolders.Items
        If IO.Directory.Exists(sMonitorFolder) Then
            Dim oFileWatcher As FileSystemWatcher = New FileSystemWatcher
            oFileWatcher.Path = sMonitorFolder
            oFileWatcher.Filter = "*.CSV"
            If blnMonitorUpdated Then
                AddHandler oFileWatcher.Changed, AddressOf Me.FileSystemWatcherUpdated
            Else
                'RemoveHandler , AddressOf Me.FileSystemWatcherUpdated
            End If
            If blnMonitorCreated Then
                AddHandler oFileWatcher.Created, AddressOf Me.FileSystemWatcherCreated
            Else
                'RemoveHandler , AddressOf Me.FileSystemWatcherCreated
            End If
            oFileWatcher.EnableRaisingEvents = True
            aFileWatcherInstance.Add(oFileWatcher)
        End If
    Next
End Sub

Private Sub FileSystemWatcherCreated(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)
    strFullFileName = e.FullPath
    strFileName = Mid(e.Name, 3, Len(e.Name))
    strFolderName = strFileName.Split("_")(0)
    If Me.InvokeRequired Then
        Dim d As New updateLabel(AddressOf updateLabelHandler)
        Me.BeginInvoke(d, New Object() {strFolderName})
    Else
        updateLabelHandler(strFolderName)
    End If
    ReadAndInsertCSVData()
End Sub

Private Sub FileSystemWatcherDeleted(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)
    'A file has been deleted from the child directory.
End Sub

Private Sub FileSystemWatcherUpdated(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)
    strFullFileName = e.FullPath
    strFileName = Mid(e.Name, 3, Len(e.Name))
    strFolderName = strFileName.Split("_")(0)
    If Me.InvokeRequired Then
        Dim d As New updateLabel(AddressOf updateLabelHandler)
        Me.BeginInvoke(d, New Object() {strFolderName})
    Else
        updateLabelHandler(strFolderName)
    End If
    ReadAndInsertCSVData()
End Sub

结束类

任何帮助将不胜感激。

Answer 1

Changed 事件将触发多次：

https://msdn.microsoft.com/en-us/library/system.io.filesystemwatcher.changed(v=vs.110).aspx

也许你可以使用这里提到的 IsFileLocked 函数：

I keep getting exception sometimes on System.Threading.Tasks.TaskCompletionSource<bool> how can i solve it?