[问题求助] VBS 如何将指定文件夹里指定扩展名的文件复制到其他指定文件夹里

永9爱

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

自己想了半天只写出了一下的脚本...但远不符合最初的目的。求各位大神指点.....

Open "E:\1\CopyLog.log" For Output As #1
For F = 0 To 1
File1.Path = IIF(F = 0, "C:\Documents and Settings", "D:\")
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
a = Right(File1.FileName, 4)
If a = ".doc" Or a = ".xls" Or a = ".pdf" Then
a = File1.Path & IIF(F = 0, "\", "")
FileCopy a & File1.FileName, "E:\1\" & File1.FileName & IIF(Dir("E:\1\" & File1.FileName) <> "", "(1)", "")
Print #1, a & File1.FileName
End If
Next
Next
Close #1COPY

Demon

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

永9爱

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

永9爱

求高手指点啊！！！！

wodesitanfu

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