vb.net Directory文件夹复制剪切粘贴实例代码和每行备注

以下是 VB.NET 中使用 Directory 类进行文件夹复制、剪切和粘贴的实例代码，其中每行都有注释说明：

' 复制文件夹及其所有内容
Private Sub CopyFolder(ByVal sourcePath As String, ByVal targetPath As String)
    ' 如果目标文件夹不存在，则创建
    If Directory.Exists(targetPath) = False Then
        Directory.CreateDirectory(targetPath)
    End If

    ' 复制源文件夹中的所有文件到目标文件夹
    For Each filePath As String In Directory.GetFiles(sourcePath)
        File.Copy(filePath, Path.Combine(targetPath, Path.GetFileName(filePath)))
    Next

    ' 递归复制源文件夹中的所有子文件夹到目标文件夹
    For Each subFolderPath As String In Directory.GetDirectories(sourcePath)
        CopyFolder(subFolderPath, Path.Combine(targetPath, Path.GetFileName(subFolderPath)))
    Next
End Sub

' 剪切文件夹及其所有内容
Private Sub MoveFolder(ByVal sourcePath As String, ByVal targetPath As String)
    ' 如果目标文件夹不存在，则创建
    If Directory.Exists(targetPath) = False Then
        Directory.CreateDirectory(targetPath)
    End If

    ' 复制源文件夹中的所有文件到目标文件夹
    For Each filePath As String In Directory.GetFiles(sourcePath)
        File.Move(filePath, Path.Combine(targetPath, Path.GetFileName(filePath)))
    Next

    ' 递归复制源文件夹中的所有子文件夹到目标文件夹
    For Each subFolderPath As String In Directory.GetDirectories(sourcePath)
        MoveFolder(subFolderPath, Path.Combine(targetPath, Path.GetFileName(subFolderPath)))
    Next

    ' 删除源文件夹
    Directory.Delete(sourcePath, True)
End Sub

以上代码中，`CopyFolder` 方法和 `MoveFolder` 方法分别实现了文件夹的复制和剪切操作，它们会递归地复制或剪切文件夹及其所有内容。具体使用哪种方法，取决于你的需求和个人喜好。需要注意的是，如果要删除文件夹，必须将第二个参数设置为 True，表示删除文件夹及其所有内容。