Форма замораживания при перемещении файлов

Question

Так что я сейчас использую BackgroundWorker1_DoWork для создания PDF-файлов. На BackgroundWorker1RunWorker1_Completed Я использую следующий код для перемещения этих файлов из одного локатора в другой.

 'MOVE PDFs TO NEW LOCATION 
     For Each foundFile As String In My.Computer.FileSystem.GetFiles("C:\Temp\", FileIO.SearchOption.SearchAllSubDirectories, "*.pdf") 
      Dim foundFileInfo As New System.IO.FileInfo(foundFile) 
      'ToolStripStatusLabel1.Text = "Moving PDFs..." 
      File.Move(foundFile, "\\server\temp\" & foundFileInfo.Name) 'MOVES PDFs 
     Next 

Когда программа доходит до этой точки, моя форма застывает, не может переместить окно, не прокручивать, ничего в рамках программы не может сделать.

Что заставило бы мою форму заморозить? Есть ли способ устранить это?

Answer 1

Событие Completed связано с потоком пользовательского интерфейса. Поэтому любая работа, которую вы выполняете в этом обработчике событий, блокирует пользовательский интерфейс, пока он не будет обработан. Если вы не хотите, чтобы пользовательский интерфейс зависал, вам нужно сделать File.Move в обработчике событий DoWork, так как это тот, который поднят из фонового потока.

Update

Основываясь на ваш комментарий выше, вы должны помнить, что обработчик DoWork события вызываются из фонового потока. Поэтому вы можете блокировать этот поток столько, сколько хотите, не влияя на отзывчивость пользовательского интерфейса. Поэтому, если у вас возникла проблема с тем, что файл еще не доступен после завершения процесса, я бы рекомендовал повторить попытку File.Move в цикле. Вы можете повторить операцию перемещения файла несколько раз, с коротким Thread.Sleep между ними, чтобы, если он по-прежнему не работает через определенное время, он будет тайм-аут и сбой. Например, это будет повторять файл один раз в секунду, а затем таймаут через 10 секунд:

For i As Integer = 0 To 10 
    Try 
     File.Move(foundFile, "\\server\temp\" & foundFileInfo.Name) 
     Exit For 
    Catch ex As IOException 
    End Try 
    Thread.Sleep(1000) 
Next