查找复制相同文件

自学VBA

    在D盘有三个大文件夹A,B,C,它们里面都有相同名称的100+个子文件夹a,b,c......，只有2层目录。大文件夹A,B每一个子文件夹里都放有许多txt文件，大文件夹C中子文件夹是空。
我需要把：
   如果大文件夹B里的[子文件夹a]里面，与大文件夹A里的[子文件夹a]里面，有相同名称的1txt.文件，就将大文件夹B里[子文件夹a]里面这个重复1txt.文件，复制到大文件夹C里[子文件夹a]里面。如果大文件夹B里的[子文件夹b]里面，与大文件夹A里的[子文件夹b]里面有相同名称的2txt.文件，就将大文件夹B里[子文件夹b]里面这个重复2txt.文件，复制到大文件夹C里[子文件夹b]里面........。
     这样此类推，找出所有重复文件，不知道如何操作~！！

        谢谢！！！！！！！！！！！！

蓝桥玄霜

http://club.excelhome.net/thread-759741-1-1.html
参考里面的searfile自定义函数获取文件夹中所有的文件名。

自学VBA

蓝桥玄霜 发表于 2017-3-26 11:49
http://club.excelhome.net/thread-759741-1-1.html
参考里面的searfile自定义函数获取文件夹中所有的文件 ...

     版主好！我懂怎样获取文件夹名称，但是要循环比较找出名称相同的文件，还真写不出来，能够给出一个代码参考一下吗？


     谢谢!!!!!!!!!!!!!!!!