Vb.net 如何修复复制的文件夹名称

我有一个vb应用程序，它可以复制正常工作的文件夹及其子文件夹。我的问题是，它没有复制被复制文件夹的正确文件夹名称

就像我复制文件夹的位置一样：C:\Users\Documents\Sample\u folder 输出复制的文件夹名称将为“Documents”

C:\Users\Documents\Sample\u Folder\Sample\u Folder\u 2 复制的输出文件夹名称为“Sample\u folder”

---

“我的问题是，它没有复制被复制文件夹的正确文件夹名。”-从我的角度来看，它是。如果要使用正在复制的文件夹的父文件夹名称，则必须编写代码来提取父文件夹名称。我相信您可以使用。如果

SourcePath

已经是目录路径，则无需调用

Path.GetDirectoryName

。只需使用

Path.GetFileName（SourcePath）

并将其与目标路径结合起来，就可以了。“我的问题是它没有复制所复制文件夹的正确文件夹名。”-从我的角度来看，它是。如果要使用正在复制的文件夹的父文件夹名称，则必须编写代码来提取父文件夹名称。我相信您可以使用。如果

SourcePath

已经是目录路径，则无需调用

Path.GetDirectoryName

。只需使用

Path.GetFileName（SourcePath）

并将其与目标路径结合起来，就可以了。

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