vbs 移动文件包含子文件夹 到了一个文件夹不要用复制的方式

在VBScript中，可以使用Move方法来移动文件和文件夹，而不需要复制的方式。以下是一个移动文件和文件夹的示例代码，包括子文件夹：

Option Explicit

Dim objFSO, sourceFolder, destinationFolder

' 设置源文件夹路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
sourceFolder = "C:\SourceFolder"

' 设置目标文件夹路径
destinationFolder = "C:\DestinationFolder"

' 移动文件和文件夹
MoveFilesAndFolders sourceFolder, destinationFolder

Sub MoveFilesAndFolders(folderPath, destinationFolder)
    Dim objFolder, objSubFolder, objFile

    ' 获取源文件夹对象
    Set objFolder = objFSO.GetFolder(folderPath)

    ' 移动文件夹
    objFolder.Move destinationFolder & "\" & objFolder.Name

    ' 递归处理子文件夹
    For Each objSubFolder In objFolder.SubFolders
        MoveFilesAndFolders objSubFolder.Path, destinationFolder & "\" & objFolder.Name
    Next

    ' 移动文件
    For Each objFile In objFolder.Files
        objFile.Move destinationFolder & "\" & objFolder.Name
    Next
End Sub

以上代码将源文件夹及其所有子文件夹和文件移动到目标文件夹中。请根据实际情况修改源文件夹路径和目标文件夹路径。