Как исправить имя скопированной папки

Question

У меня есть приложение vb, которое копирует папки и подпапку, которая работает правильно. Моя проблема в том, что он не копирует правильное имя папки копируемой папки.

Например, если я скопирую папку с этим местоположением: C: \ Users \ Documents \ Sample_Folder Имя выходной скопированной папки будет «Документы».

C: \ Users \ Documents \ Sample_Folder \ Sample_Folder_2 Имя выходной скопированной папки будет «Sample_Folder».

Private Sub btnCopy_Click(sender As Object, e As EventArgs) Handles btnCopy.Click
    Dim SourcePath As String = txtBrowse.Text
    Dim DestinationPath As String = "C:\Users\1000258123\Desktop\NEW"

    Dim newDirectory As String =
        System.IO.Path.Combine(DestinationPath,
                               Path.GetFileName(Path.GetDirectoryName(SourcePath)))
    If Not (Directory.Exists(newDirectory)) Then
        Directory.CreateDirectory(newDirectory)
    End If
    Microsoft.VisualBasic.FileIO.FileSystem.CopyDirectory(SourcePath, newDirectory)
    MsgBox("Copy Successful")

End Sub