Перехват событий после вызова диалога FileSystem.FileCopy UI - PullRequest
Новая
       13

Перехват событий после вызова диалога FileSystem.FileCopy UI

1 голос
/ 19 октября 2011

Я копирую некоторые файлы в какое-то место, и тем временем хочу записать имена файлов в текстовый файл.

Я бы хотел использовать диалоговое окно Windows 7 «Копировать / заменить» в случае, если файлы уже присутствуют в папке назначения (чтобы держать пользователей в «известной» среде).

Но моя проблема в том, что я не могу перехватить 4 разных события в зависимости от выбора пользователя:

  • Заменить
  • Не копировать
  • Копировать с другим именем

  • Отмена (для этого я могу сгенерировать исключение и поймать его) 

        Dim oFile As New StreamWriter(strTextFile)
    For Each p In Me.Files ' List of custom class with file information like Path, Extension, etc...
        Dim strFileName = Path.Combine(strDestinationFolder, p.FileName)
        If File.Exists(strFileName) Then
            Try
                My.Computer.FileSystem.CopyFile(p.Path, strFileName, UIOption.AllDialogs, UICancelOption.ThrowException)
            Catch ex As Exception
                ' I would like to catch user's choices here to react accordingly in the text file
            End Try
        Else
            oFile.WriteLine(p.Path & ";" & p.FileName)
        End If
    Next
    oFile.Close()

Заранее спасибо.

...