Board logo

标题: [问题求助] VBS 如何将指定文件夹里指定扩展名的文件复制到其他指定文件夹里 [打印本页]
作者: 永9爱    时间: 2012-8-19 11:44     标题: VBS 如何将指定文件夹里指定扩展名的文件复制到其他指定文件夹里

本帖最后由 pcl_test 于 2016-11-5 23:33 编辑

我的电脑有很多用户，我现在想搜索C:\Documents and Settings\下面每个用户的桌面和我的文档以及D盘所有目录下面的的doc，xls，pdf的文件，如果有就把这些文件复制到指定的目录下面e:\1的文件内，并且在E盘里面创建一个log文件，记录都是复制文件的路径。如果有重复的文件，则自动重命名，比如加个（1）。

自己想了半天只写出了一下的脚本...但远不符合最初的目的。求各位大神指点.....
  1. Open "E:\1\CopyLog.log" For Output As #1

  2. For F = 0 To 1

  3. File1.Path = IIF(F = 0, "C:\Documents and Settings", "D:\")

  4. For i = 0 To File1.ListCount - 1

  5. File1.ListIndex = i

  6. a = Right(File1.FileName, 4)

  7. If a = ".doc" Or a = ".xls" Or a = ".pdf" Then

  8. a = File1.Path & IIF(F = 0, "\", "")

  9. FileCopy a & File1.FileName, "E:\1\" & File1.FileName & IIF(Dir("E:\1\" & File1.FileName) <> "", "(1)", "")

  10. Print #1, a & File1.FileName

  11. End If

  12. Next

  13. Next

  14. Close #1
复制代码
作者: Demon    时间: 2012-8-19 12:23

这货居然是VBS，您使用的是Windows 11系统？
作者: 永9爱    时间: 2012-8-20 23:04

呃....只是想求高手指点一下   怎么写....
作者: 永9爱    时间: 2012-8-21 19:54

求高手指点啊！！！！
作者: wodesitanfu    时间: 2012-8-22 14:53

为什么不用批处理呢，干这种活可是批处理的强项



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