使用 ArrayList 动态数组遍历目录

2.     Sub a(ByVal aa As String) 'aa为欲遍历的目录
3.         Dim d_1, d_2, d_3,d_4  As New ArrayList '定义4个数组,其中d_3为文件夹数组,d_4为所有文件数组
4.         d_1.AddRange(System.IO.Directory.GetDirectories(aa))
5.         d_3.AddRange(d_1)
6.         d_4.addrange(system.io.directory.getfiles(aa)
7.         Do While d_1.Count >= 1
8.             For Each d_1_1 As String In d_1
9.                 d_2.AddRange(System.IO.Directory.GetDirectories(d_1_1))
10.                 d_4.addrange(system.io.directory.getfiles(d_1_1)
11.             Next
12.             d_3.AddRange(d_2)
13.             d_1.Clear()
14.             d_1.AddRange(d_2)
15.             d_2.Clear()
18.         Loop
19.         
21.     End Sub