vb.net копирование содержимого папок и индикатора выполнения

Question

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

Private Sub backupL01() 
     Dim xNewLocataion = My.Settings.dest 
     If Not Directory.Exists(xNewLocataion) Then 
      Directory.CreateDirectory(xNewLocataion) 
     End If 
     Dim xFilesCount = Directory.GetFiles(My.Settings.source).Length 
     Dim xFilesTransferred As Integer = 0 

     For Each xFiles In Directory.GetFiles(My.Settings.source) 

      File.Copy(xFiles, xNewLocataion & "\" & Path.GetFileName(xFiles), True) 
      xFilesTransferred += 1 

      ProgressBar1.Value = xFilesTransferred * 100/xFilesCount 
      ProgressBar1.Update() 

      'MsgBox("Backup has been completed.", , "Backup") 
      'ProgressBar1.Value = 0 
     Next 
    End Sub 

Answer 1

Я просто хочу, чтобы использовать это, это прекрасно для того, что им использовать это для:

Dim xNewLocataion = My.Settings.dest 
     If Not Directory.Exists(xNewLocataion) Then 
      Directory.CreateDirectory(xNewLocataion) 
     End If 
     My.Computer.FileSystem.CopyDirectory(My.Settings.source, My.Settings.dest, showUI:=FileIO.UIOption.AllDialogs)