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. backupFolder = dr & "\备份"
  5. Set fso = CreateObject("Scripting.FileSystemObject")
  6. fso.DeleteFile dr & "\cloud\1\*.rar", true
  7. if not fso.FolderExists(backupFolder) then fso.CreateFolder backupFolder
  8. fso.MoveFile dr & "\cloud\1\*", backupFolder
  9. fso.DeleteFolder dr & "\cloud\1", true
  10. moveRAR dr & "\cloud"
  11. fso.DeleteFolder dr & "\cloud", true
  12. function moveRAR(fo)
  13. fso.MoveFile fo & "\*.rar", backupFolder
  14. for each ofolder in fso.GetFolder(fo).SubFolders
  15.     moveRAR ofolder.path
  16. next
  17. end function
复制代码
如果是把vbs放在U盘运行,没必要获取U盘盘符,可以使用相对路径。即将代码中的dr(dr &)去掉。




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