Hey, Scripting Guy! How Can I List All the Duplicate Files in a Folder and Its Subfolders?

re: Hey, Scripting Guy! How Can I List All the Duplicate Files in a Folder and Its Subfolders?

IamMred — Wed, 01 Aug 2012 20:00:32 GMT

@Daniel the easiest way to do it is in the ShowSubFolders subroutine. Put an if / then / else command and if the folder name is equal to windows then you skip it and go to the next folder in the collection.

re: Hey, Scripting Guy! How Can I List All the Duplicate Files in a Folder and Its Subfolders?

Daniel — Wed, 01 Aug 2012 18:22:49 GMT

Hi,

Excellent tutorial! It made perfect sense to me.

I do have a question.

Can we bypass folders we don't want to search in? For example, I don't want the C:\Windows folder to be searched.

Thanks in advance.

re: Hey, Scripting Guy! How Can I List All the Duplicate Files in a Folder and Its Subfolders?

Add Disk size — Wed, 30 Mar 2011 04:15:21 GMT

I am removing duplicate mp3, with a million track1.mp3 i needed to add filesize to verify. I added it the the sub provided, and it attaches it to the file name. If it is Track1.mp3, but it is a different size, it ignores, same exact size it echo's.

Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders

Set objFolder = objFSO.GetFolder(Subfolder.Path)

Set colFiles = objFolder.Files

For Each objFile in colFiles

strName = objFile.Name

strPath = objFile.Path

strName = objfile.Name' & objfile.Size

If Not objDictionary.Exists(strName) Then

objDictionary.Add strName, strPath

Else

objDictionary.Item(strName) = objDictionary.Item(strName) & ";" & strPath

End If

ShowSubFolders Subfolder

End Sub