vbs 移动A文件夹及其子文件夹的所有文件到B文件夹

以下是一个示例的VBScript代码，用于移动文件夹A及其子文件夹中的所有文件到文件夹B。

Dim objFSO, objFolderA, objFolderB

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 获取文件夹A的引用
Set objFolderA = objFSO.GetFolder("C:\FolderA")

' 获取文件夹B的引用
Set objFolderB = objFSO.GetFolder("C:\FolderB")

' 递归移动文件函数
Sub MoveFiles(objFolder)
    Dim objFile
    ' 遍历文件夹中的所有文件
    For Each objFile In objFolder.Files
        ' 移动文件到文件夹B
        objFile.Move objFolderB.Path & "\" & objFile.Name
    Next

    Dim objSubFolder
    ' 遍历文件夹中的所有子文件夹
    For Each objSubFolder In objFolder.SubFolders
        ' 递归调用MoveFiles函数，移动子文件夹中的文件
        MoveFiles objSubFolder
    Next
End Sub

' 调用MoveFiles函数，移动文件夹A及其子文件夹中的所有文件到文件夹B
MoveFiles objFolderA

' 释放对象引用
Set objFSO = Nothing
Set objFolderA = Nothing
Set objFolderB = Nothing

将上述代码保存为一个以.vbs为后缀的文件，然后双击运行该文件即可实现移动文件夹A及其子文件夹中的所有文件到文件夹B。