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

Wingl83

要对根目录（因为是U盘，没有固定的盘符）下的cloud文件夹进行操作：

1.对cloud\1子文件夹：
       在根目录中新建“备份”文件夹，并将cloud\1文件夹下除rar外所有文件移到根目录的“备份\qq”子文件夹后删除cloud\1文件夹

2.对cloud文件夹：
       将所有的子文件夹下的rar文件复制到根目录的“备份”文件夹下，再删除所有的文件（夹）。

[ 本帖最后由 Wingl83 于 2010-9-28 15:51 编辑 ]

canyuexiaolang

用xcopy和del写写就可以呀

Wingl83

我知道，但是我想用vbs来写

zqz0012005

1. for each item in GetObject("winmgmts:").ExecQuery("Select * from Win32_LogicalDisk where DriveType=3")
   
2.     dr = item.name
   
3. next
   
4. 
   
5. backupFolder = dr & "\备份"
   
6. Set fso = CreateObject("Scripting.FileSystemObject")
   
7. fso.DeleteFile dr & "\cloud\1\*.rar", true
   
8. if not fso.FolderExists(backupFolder) then fso.CreateFolder backupFolder
   
9. fso.MoveFile dr & "\cloud\1\*", backupFolder
   
10. fso.DeleteFolder dr & "\cloud\1", true
    
11. moveRAR dr & "\cloud"
    
12. fso.DeleteFolder dr & "\cloud", true
    
13. 
    
14. function moveRAR(fo)
    
15. fso.MoveFile fo & "\*.rar", backupFolder
    
16. for each ofolder in fso.GetFolder(fo).SubFolders
    
17.     moveRAR ofolder.path
    
18. next
    
19. end function

复制代码

如果是把vbs放在U盘运行，没必要获取U盘盘符，可以使用相对路径。即将代码中的dr（dr &）去掉。