keen

如果没有创建Test目录，请把代码中'objFSO.CreateFolder(strFolder & "Test")前的'单引号去掉。
假设你的AAA目录在C盘，根据你的实际情况改变。

strFolder = "C:\AAA\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
'objFSO.CreateFolder(strFolder & "Test")

Set colFiles = objFolder.Files
For Each File In colFiles
    If File.Name <> "xp.bak" Then
        File.Move strFolder & "Test\"
    End If
Next

Set colFolders = objFolder.SubFolders
For Each Folder In colFolders
    If Folder.Name <> "Test" Then
        Folder.Move strFolder & "Test\"
    End If
Next
复制代码