[已解决]如何遍历文件夹下的所有文件（有子文件夹）

ynslyjb · 发表于 2014-4-12 14:47

求大神求助，这是个之前论坛上【爱疯】大神已经做出的表格，已经可以按指定路径返回文件清单。
但是当文件夹里有子文件夹的时候，只显示一级目录下的清单，二级以上的内容显示不出，请大神指教。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-12 18:38

本帖最后由 dsmch 于 2014-4-13 06:50 编辑

………………

跳转到最佳答案楼层

billyzhang0609 · 发表于 2014-4-12 15:28

这个问题我也想问。

我心飞翔410 · 发表于 2014-4-12 16:01

本帖最后由我心飞翔410 于 2014-4-12 16:02 编辑

遍历文件夹校长有代码啊

http://www.excelpx.com/forum.php?mod=viewthread&tid=132522&highlight=%B1%E9%C0%FA

dsmch · 发表于 2014-4-12 18:36

本帖最后由 dsmch 于 2014-4-13 06:49 编辑

Dim arr(), s&
Sub Ipbox()
ReDim arr(1 To 2000, 1 To 1)
Zdir InputBox("请输入路径:", , ThisWorkbook.Path & "\新建文件夹\")
Columns(1).ClearContents
Range("a1").Resize(s) = arr
End Sub
Sub Zdir(P)
Set Fso = CreateObject("scripting.filesystemobject")
For Each f In Fso.GetFolder(P).Files
s = s + 1
arr(s, 1) = f
Next
For Each m In Fso.GetFolder(P).SubFolders
Zdir m
Next
End Sub

dsmch · 发表于 2014-4-12 18:38

本帖最后由 dsmch 于 2014-4-13 06:50 编辑

………………

billyzhang0609 · 发表于 2014-4-12 19:58

我心飞翔410 发表于 2014-4-12 16:01
遍历文件夹校长有代码啊
http://www.excelpx.com/forum.php?mod=viewthread&tid=132522&highlight= ...

谢谢

古豆 · 发表于 2016-10-15 12:21

5楼的附件无法下载？？

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

[已解决]如何遍历文件夹下的所有文件（有子文件夹）

相关帖子