VB.NET FileSystemWatcher - 复制创建的文件[重复]

Question

^^^ 答案在 C# 中！我正在使用 VB.NET！ ^^^

我正在使用 FileSystemWatcher 来监视文件夹中的新文件。

当检测到更改时会触发此子程序，然后将文件复制到服务器。

   Private Sub OnCreated(source As Object, e As FileSystemEventArgs)
        Dim LocalFile As String = e.FullPath
        Dim ServerFile As String = LocalFile.Replace(localSyncPath, serverSyncPath)

        Try
            File.Copy(LocalFile, ServerFile)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

问题是这通常会弹出一个错误，说文件正在使用中。有没有办法运行一个循环来继续尝试直到它工作？甚至复制尽管正在使用中？

Answer 1

我给你看的link很容易翻译成VB.NET：

Public Shared Sub listener_Created(sender As Object, e As FileSystemEventArgs)
    Console.WriteLine("File Created:" & vbLf + "ChangeType: " + e.ChangeType + vbLf & "Name: " + e.Name + vbLf & "FullPath: " + e.FullPath)
    Try
        File.Copy(e.FullPath, "D:\levani\FolderListenerTest\CopiedFilesFolder\" + e.Name)
    Catch
        _waitingForClose.Add(e.FullPath)
    End Try
    Console.Read()
End Sub

Public Shared Sub listener_Changed(sender As Object, e As FileSystemEventArgs)
    If _waitingForClose.Contains(e.FullPath) Then
        Try
            File.Copy(...)
            _waitingForClose.Remove(e.FullPath)
        Catch
        End Try
    End If
End Sub