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

tyxvba7529 · 发表于 2016-12-12 15:43

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

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

复制代码

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

liulang0808 · 发表于 2016-12-12 15:48

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

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

xudongdong73 · 发表于 2016-12-27 16:38

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

xudongdong73 · 发表于 2016-12-27 16:59

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

weiyingde · 发表于 2017-1-14 13:53

本帖最后由 weiyingde 于 2017-1-14 14:33 编辑

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

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

liulang0808 · 发表于 2017-1-15 17:33

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

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

weiyingde · 发表于 2017-1-15 18:52

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

已经解决了，谢谢你。

ammyc · 发表于 2017-1-17 18:28

好好学习，天天向上

kanon7 · 发表于 2017-1-21 13:21

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

xixi0603 · 发表于 2017-2-17 10:15

谢谢分享。

		自动登录	找回密码
密码			免费注册

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