如何在VB.Net中使用单窗口复制图形用户界面复制多个文件/文件夹

Imports System.IO

Private Sub btnCopy_Click(sender As Object, e As EventArgs) Handles btnCopy.Click
    Dim sourcePath As String = txtSourcePath.Text
    Dim targetPath As String = txtTargetPath.Text

    ' 检查源路径是否存在
    If Not Directory.Exists(sourcePath) Then
        MessageBox.Show("源路径不存在！")
        Return
    End If

    ' 检查目标路径是否存在，如果不存在则创建
    If Not Directory.Exists(targetPath) Then
        Directory.CreateDirectory(targetPath)
    End If

    ' 获取源路径下的所有文件和文件夹
    Dim files As String() = Directory.GetFiles(sourcePath)
    Dim folders As String() = Directory.GetDirectories(sourcePath)

    ' 复制文件
    For Each file As String In files
        Dim fileName As String = Path.GetFileName(file)
        Dim targetFile As String = Path.Combine(targetPath, fileName)
        File.Copy(file, targetFile, True)
    Next

    ' 递归复制文件夹
    For Each folder As String In folders
        Dim folderName As String = Path.GetFileName(folder)
        Dim targetFolder As String = Path.Combine(targetPath, folderName)
        Directory.CreateDirectory(targetFolder)
        CopyFolder(folder, targetFolder)
    Next

    MessageBox.Show("复制完成！")
End Sub

Private Sub CopyFolder(sourceFolder As String, targetFolder As String)
    ' 获取源文件夹下的所有文件和文件夹
    Dim files As String() = Directory.GetFiles(sourceFolder)
    Dim folders As String() = Directory.GetDirectories(sourceFolder)

    ' 复制文件
    For Each file As String In files
        Dim fileName As String = Path.GetFileName(file)
        Dim targetFile As String = Path.Combine(targetFolder, fileName)
        File.Copy(file, targetFile, True)
    Next

    ' 递归复制文件夹
    For Each folder As String In folders
        Dim folderName As String = Path.GetFileName(folder)
        Dim targetSubFolder As String = Path.Combine(targetFolder, folderName)
        Directory.CreateDirectory(targetSubFolder)
        CopyFolder(folder, targetSubFolder)
    Next
End Sub