[讨论]获取文件夹(目录)方法汇总

青阳 · 发表于 2005-5-16 20:47

请问如何列出C:\根目录下的所有子文件夹名称?

figfig · 发表于 2005-5-16 20:56

请问如何列出C:\根目录下的所有子文件夹名称?

Sub mydir2()

aa = Dir("c:\", 16) i = 0 Do While aa <> ""

If GetAttr("c:\" + aa) = 16 Then i = i + 1 bb = aa Debug.Print bb End If

Cells(i, 1) = bb

aa = Dir

Loop

End Sub

青阳 · 发表于 2005-5-16 20:57

Tfigfig,您的方法列出的是所有文件夹和文件,能不能只列出文件夹,谢谢

figfig · 发表于 2005-5-16 21:01

您的方法列出的是所有文件夹和文件,能不能只列出文件夹

[em06]试过没有？[em06]

青阳 · 发表于 2005-5-16 21:14

不好意思,我刚才只看过11楼的,13楼的完全可以,谢谢!!

chenwintek · 发表于 2005-6-9 09:39

[em05][em05][em05]

Tullips · 发表于 2005-8-2 10:25

太经典了，绝好

青山依旧 · 发表于 2005-8-2 10:49

好贴，收藏学习。

谢谢班竹！！！！

布衣铁剑 · 发表于 2005-8-2 11:11

好贴，学习中。

loveast · 发表于 2006-4-10 13:08

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