fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总）

tyxvba7529

liulang0808 发表于 2014-11-15 09:11
三、遍历当前文件夹所有子文件夹
使用了递归。。。。
Sub 按钮1_Click()

1. Cells(Rows.Count, 1).End(3).Offset(1) = pth

复制代码

请问递归写入单元格这句能不能改成写入到字典，有两个作用；
1. 去重
2. 文件夹实在太多， 循环写入单元格时间太长。

liulang0808

tyxvba7529 发表于 2016-12-12 15:43
请问递归写入单元格这句能不能改成写入到字典，有两个作用；
1. 去重
2. 文件夹实在太多， 循环写入 ...

可以考虑设置一个全局字典变量测试看看

xudongdong73

这个对所有版本都适合吗?如xls以及xlsx。

xudongdong73

非常好的文件夹遍历递归学习资料！谢谢liulang0808的分享！

weiyingde

liulang0808 发表于 2014-11-15 09:12
四、遍历当前文件夹及所有子文件夹下的文件
还是递归

这两个过程，能否捏成一个一个过程呢。
第二个过程是一个函数
For Each fd In ff.subfolders
   Getfd (fd) ‘这里是调用自身函数吧？能否不用函数呢？我想不用函数，并将其简洁的移植到自己的代码中，奈何你用了自定义函数，移植失败。
    Next fd
希望能够给予指导。
谢谢了

liulang0808

weiyingde 发表于 2017-1-14 13:53
这两个过程，能否捏成一个一个过程呢。
第二个过程是一个函数
For Each fd In ff.subfolders

不了解需求，不好说怎么处理
正常函数可以直接调用的

weiyingde

liulang0808 发表于 2017-1-15 17:33
不了解需求，不好说怎么处理
正常函数可以直接调用的

已经解决了，谢谢你。

ammyc

好好学习，天天向上

kanon7

谢楼主分析！！！！！！！！！！！

xixi0603

谢谢分享。