Board logo

标题: [已解决]VBS按条件复制和删除文件（夹） [打印本页]
作者: Wingl83    时间: 2009-8-26 21:48     标题: [已解决]VBS按条件复制和删除文件（夹）

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

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

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

[ 本帖最后由 Wingl83 于 2010-9-28 15:51 编辑 ]
作者: canyuexiaolang    时间: 2009-8-27 07:35

用xcopy和del写写就可以呀
作者: Wingl83    时间: 2009-8-27 11:09     标题: 回复 2楼 的帖子

我知道，但是我想用vbs来写
作者: zqz0012005    时间: 2009-8-27 12:43

  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 &）去掉。



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2