Macro to find Dupliacte files in a given folder

[Mavericks334]

Hi,

Could someone help me out with a macro to find duplicate files in a given folder.

Regards,
Ren

 

[wigi]

Windows will not allow 2 files with the same name in a given folder, so I do not understand what you mean with "duplicate files in a given folder".

Please explain in detail what you need.

 

[Mavericks334]

For instance i have file with the Name Apple.TXT, Apple.XLS,Apple.Doc

I need a macro that will let me know, that a File name with Apple is available in folder 3 times or x times

I hope that is clear

 

[wigi]

Sub TraceDuplicateFiles()
    FolderName = "C:\Files\"  'ADJUST HERE
    FName = Dir(FolderName & "*.*")
    Do While Len(FName)
        sFiles = sFiles & "#" & FName
        FName = Dir()
    Loop
    sq = Split(Mid(sFiles, 2), "#")
    For i = LBound(sq) To UBound(sq)
        FName = Dir(FolderName & Left(sq(i), InStrRev(sq(i), ".") - 1) & ".*")
        Do While Len(FName)
            If FName <> sq(i) Then Range("A" & Rows.Count).End(xlUp).Offset(1) = FName
            FName = Dir()
        Loop
    Next
    Columns(1).Sort [A1]
End Sub

 

[Mavericks334]

Thanks a lot for the help

 

[wigi]

You're most welcome.

 

[Mavericks334]

Hi Wigi,

I tried the macro, however i did not get any result. Could you please re-check it again. It neither gave me the count of the duplicate files or the name of the duplicate file.

Regards,
Ren

 

[wigi]

The result of the macro (all files that are duplicates) are output on the active sheet, in column A.

Make sure you have changed the path of the folder (now it is C:\Files\) Do not forget to add the \ at the end of the path.