vbs 把A文件夹内的文件和子文件夹移动到B文件夹

您可以使用以下VBScript代码将A文件夹内的文件和子文件夹移动到B文件夹：

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim strSourceFolder, strDestFolder
strSourceFolder = "C:\A"
strDestFolder = "C:\B"

' 检查源文件夹是否存在
If Not objFSO.FolderExists(strSourceFolder) Then
    WScript.Echo "源文件夹不存在"
    WScript.Quit
End If

' 检查目标文件夹是否存在，如果不存在则创建它
If Not objFSO.FolderExists(strDestFolder) Then
    objFSO.CreateFolder strDestFolder
End If

' 移动文件和子文件夹
MoveFilesAndFolders objFSO.GetFolder(strSourceFolder), objFSO.GetFolder(strDestFolder)

Set objFSO = Nothing

Sub MoveFilesAndFolders(objSourceFolder, objDestFolder)
    ' 移动文件
    For Each objFile In objSourceFolder.Files
        objFile.Move objDestFolder.Path & "\" & objFile.Name
    Next
    
    ' 递归移动子文件夹
    For Each objSubFolder In objSourceFolder.SubFolders
        Dim strNewDestFolder
        strNewDestFolder = objDestFolder.Path & "\" & objSubFolder.Name
        objFSO.CreateFolder strNewDestFolder
        MoveFilesAndFolders objSubFolder, objFSO.GetFolder(strNewDestFolder)
    Next
End Sub

请确保将strSourceFolder和strDestFolder变量的值更改为实际的源文件夹和目标文件夹的路径。运行此脚本后，A文件夹内的所有文件和子文件夹将被移动到B文件夹中。