用VBA查找子文件夹内重复的文件，并将重复的文件写入EXCEL中？

如题，电脑里面有很多重复的文件，但是每次要去查找核对，非常麻烦，想用VBA写一段代码，找出重复的文件