VBS 如何将指定文件夹里指定扩展名的文件复制到其他指定文件夹里

永9爱

我的电脑有很多用户，我现在想搜索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

这货居然是VBS，您使用的是Windows 11系统？

永9爱

呃....只是想求高手指点一下   怎么写....

永9爱

求高手指点啊！！！！

wodesitanfu

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