- Sub a(ByVal aa As String) 'aa为欲遍历的目录
- Dim d_1, d_2, d_3,d_4 As New ArrayList '定义4个数组,其中d_3为文件夹数组,d_4为所有文件数组
- d_1.AddRange(System.IO.Directory.GetDirectories(aa))
- d_3.AddRange(d_1)
- d_4.addrange(system.io.directory.getfiles(aa)
- Do While d_1.Count >= 1
- For Each d_1_1 As String In d_1
- d_2.AddRange(System.IO.Directory.GetDirectories(d_1_1))
- d_4.addrange(system.io.directory.getfiles(d_1_1)
- Next
- d_3.AddRange(d_2)
- d_1.Clear()
- d_1.AddRange(d_2)
- d_2.Clear()
- Loop
- End Sub
使用 ArrayList 动态数组遍历目录
最新推荐文章于 2025-10-15 09:46:10 发布
本文介绍了一个使用VBA编写的目录遍历示例,该示例通过递归方式获取指定目录及其子目录下的所有文件及文件夹,并将它们分别存储在不同的数组中。此方法适用于需要对文件系统进行深入操作的应用场景。
开发板推荐:天空星STM32F407VET6开发板
超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印
开发板推荐:天空星STM32F407VET6开发板
超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印


6169

被折叠的 条评论
为什么被折叠?



