请问如何提取D盘下所有文件夹下的所有文件名？

活在理想的世界

请问如何提取D盘下所有文件夹下的所有文件名？

我觉得没必要做什么附件模拟吧？就是指定盘符下所有文件夹内的所有文件名,要求应该是明确的吧？

要一段代码想自己看看是怎么一回事，目前我只会提取某个文件夹的所有文件名（包含子目录）。。。。。

谢谢各位啊。

⊙⊙小噤○

1. Sub 遍历含子目录下的所有文件名()
   
2.     '利用DOS,快速遍历含子目录下的所有文件名
   
3.     Path = "D:"'你要遍历的目录
   
4.     Dim ar() As String
   
5.     ar = Split(CreateObject("Wscript.Shell").Exec("cmd /c dir /a-d /b /s " & Chr(34) & Path & Chr(34)).StdOut.ReadAll, vbCrLf)    '所有文档含子文件夹
   
6.     For i = 0 To UBound(ar) - 1
   
7.         Debug.Print "这是你要的每个文件名带路径", i, ar(i)
   
8.     Next
   
9. End Sub

复制代码

活在理想的世界

⊙⊙小噤○ 发表于 2017-9-28 18:18
dos 又快又好

你的意思这已经不是VBA范畴内的问题啦？

huang1314wei

这个变通一下就行了呀，你不是会提取某个文件夹的所有文件名（包含子目录）  吗？那么你把这个文件夹路径设置成d:\就行了呀

⊙⊙小噤○

活在理想的世界 发表于 2017-9-28 18:35
你的意思这已经不是VBA范畴内的问题啦？

不是.我的意思是.VBA调用DOS下的一个命令。就一行代码。就能知道所有文件名了。百度一下吧。我手机上呢

活在理想的世界

huang1314wei 发表于 2017-9-28 18:44
这个变通一下就行了呀，你不是会提取某个文件夹的所有文件名（包含子目录）  吗？那么你把这个文件夹路径设 ...

不行，做不了。

那个只能调取一根直系目录，就跟直系亲属是一个道理。再直系文件夹内的所有文件可以取，但是旁系的就去不到了。

活在理想的世界

⊙⊙小噤○ 发表于 2017-9-28 18:50
不是.我的意思是.VBA调用DOS下的一个命令。就一行代码。就能知道所有文件名了。百度一下吧。我手机上呢

好的，谢谢，我搜一下。

huang1314wei

活在理想的世界 发表于 2017-9-28 19:00
不行，做不了。

那个只能调取一根直系目录，就跟直系亲属是一个道理。再直系文件夹内的所有文件可以取 ...

好吧，可能你不会变通代码

⊙⊙小噤○

活在理想的世界 发表于 2017-9-28 18:35
你的意思这已经不是VBA范畴内的问题啦？

查看2楼.我贴了代码.

活在理想的世界

huang1314wei 发表于 2017-9-28 19:37
好吧，可能你不会变通代码

谢谢，自己想明白了，套几个循环就行了。