[已解决]VBS按条件复制和删除文件（夹）

for each item in GetObject("winmgmts:").ExecQuery("Select * from Win32_LogicalDisk where DriveType=3")
    dr = item.name
next

backupFolder = dr & "\备份"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile dr & "\cloud\1\*.rar", true
if not fso.FolderExists(backupFolder) then fso.CreateFolder backupFolder
fso.MoveFile dr & "\cloud\1\*", backupFolder
fso.DeleteFolder dr & "\cloud\1", true
moveRAR dr & "\cloud"
fso.DeleteFolder dr & "\cloud", true

function moveRAR(fo)
fso.MoveFile fo & "\*.rar", backupFolder
for each ofolder in fso.GetFolder(fo).SubFolders
    moveRAR ofolder.path
next
end function
复制代码