可以找出硬盘上一个或者多个目录中的重复文件。Duplicate File Finder 不象某些程序仅仅是检查文件名，它检查文件的二进位内容而不理会文件名。可以指定路径，文件类型，甚至可以采用复合过滤文件的大小日期属性。查找结果可以复制到剪贴簿。可以删除文件，弹出文件所在目录的浏览器，显示文件的属性，双击可以打开文件方便操作。
Static d As Object Static i As Long Dim iDup As Integer Dim sField ' ---------------------------------------- '这里填写需要检查的字段名 sField = [A] ' ---------------------------------------- If (i = 0) Then Set d = CreateObject("scr ipting.Dictionary") End If
