跟我学【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC

Fungling · 发表于 2017-12-21 17:38

我用.Files方法,把.tmp结尾的临时文件已列出来了，有办法避免吗?

Nick_Chen0622 · 发表于 2018-1-8 20:22

香川群子发表于 2015-2-4 13:12
FSO 递归方法实现各种指定搜寻的完整代码：呵呵。这样应该很好了。

香川老师：
我想知道如何编写另一段代码和您之前的遍历所有文件夹的代码进行衔接，从而让我在遍历文件夹选取到我想要的EXCEL文件，并且可以打开它，这样的代码该如何编写啊老师

carlostevez1984 · 发表于 2018-1-23 16:26

好！认真学习！

香川群子 · 发表于 2018-1-23 17:03

本帖最后由香川群子于 2018-1-23 17:04 编辑

Pan嗯嗯发表于 2017-2-10 11:16
If Right(myPath, 1) "" Then myPath = myPath & "" 不是很懂为什么要在后面添加""

是添加"\"文件夹分割符号

但是在论坛的代码窗口中被省略了、
应该是：

If Right(myPath, 1) <> "\" Then myPath = myPath & "\"

但是在下面代码窗口中[\]会被忽略掉，显示不出来！！！

复制代码

monkeyybab · 发表于 2018-1-23 18:29

学习中~~~~~~~~~~~~

kingsmile · 发表于 2018-1-29 11:06

thx for sharing

layamon · 发表于 2018-1-30 17:31

喜欢，跟个脚印

胸口碎大石_山丘 · 发表于 2018-2-18 19:41

香川群子发表于 2015-2-4 09:32
接下来，直接介绍当前流行的、高大上的FSO方法。

由简到繁地介绍：

强大的遍历~!

liushenglly · 发表于 2018-2-19 23:41

香川群子发表于 2015-2-4 10:10
由于很多初学者不太能理解递归算法的过程而产生畏难、抵触情绪，
所以下面避开递归，而采用字典记录中间结 ...

d1(fd.Path) = " " & fd.Name & ""
'把新的子文件夹路径存入字典d1以便在下一轮循环中处理

" " & fd.Name & "" :" "和"" 有什么意义吗

Nick_Chen0622 · 发表于 2018-2-22 13:51

香川群子发表于 2015-2-4 09:51
下面很快进入正题：

三、遍历目标文件夹内所有文件、以及所有子文件夹中的所有文件。

群子老师，请问这个递归代码的出口在哪里啊？

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

[分享] 跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC