[已解决]批处理如何查找并显示重复文件？

zhanglei1371

在我的优盘I中存在不少重复文件，分布在不同的文件夹中，如何用批处理命令将重复文件的路径输出到文本并显示重复次数？
如I:\12\3s.jpg和I:\46\25\3s.jpg和I:\77\3s.jpg
输出结果就显示为：
3s.jpg重复了三次，位置为：
I:\12\3s.jp
I:\46\25\3s.jpg
I:\77\3s.jpg
其他的以此类推

apang

1. set x=Nothing '&cls&dir/a-d/b/s I:\* | cscript -nologo -e:vbscript "%~0" &pause&exit/b
   
2. 
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5. Do Until WScript.StdIn.AtEndOfStream
   
6.     file = WScript.StdIn.ReadLine
   
7.     name = LCase(Right(file,Len(file)-InStrRev(file,"")))
   
8.     If dic.Exists(name) Then
   
9.         dic.Item(name) = dic.Item(name) & vbCrLf & file
   
10.     Else dic.Add name,file
    
11.     End If
    
12. Loop
    
13. 
    
14. For Each a in dic.Keys
    
15.    If InStr(dic.Item(a),vbCrLf) Then
    
16.       n = UBound(Split(dic.Item(a),vbCrLf)) + 1
    
17.       str = str & a & "重复了" & n & "次，位置：" & vbCrLf
    
18.       str = str & dic.Item(a) & vbCrLf & vbCrLf
    
19.    End If
    
20. Next
    
21. 
    
22. fso.CreateTextFile("Result.txt",true).Write str

复制代码

zhanglei1371

回复 2# apang


    感谢阿胖大师的解答！
还想再多问下，在cscript后可执行的其他脚本，除了vbs和jscript外，还有没其他的？

apang

回复 3# zhanglei1371


    菜鸟一只，不是什么大师
vbs我也是新手，其它的我不知道。。。