本帖最后由 pcl_test 于 2016-11-5 23:33 编辑
我的电脑有很多用户,我现在想搜索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 #1
复制代码
|