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