我正在学习VB.net,我想知道如何获取目录内所有文件夹和子文件夹,并将它们全部添加到一个列表框中。我还希望在扫描时列出当前找到的文件夹,就像显示当前找到的文件夹一样。我尝试了一些方法,但似乎都不起作用。我尝试了这个:
Sub GetDirectories(ByVal StartPath As String, ByRef DirectoryList As ArrayList)
Dim Dirs() As String = Directory.GetDirectories(StartPath)
DirectoryList.AddRange(Dirs)
For Each Dir As String In Dirs
GetDirectories(Dir, DirectoryList)
Next
For Each item In DirectoryList
ListBox1.Items.Add(item)
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim DirList As New ArrayList
GetDirectories("c:\hexing\", DirList)
End Sub