獲取目錄中的所有文件夾和子文件夾

Question

我正在學習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 

Answer 1

試試這個

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
Try 
    Dim DirList As New ArrayList 
    Dim Dirs() As String = Directory.GetDirectories(StartPath) 
    DirList.AddRange(Dirs) 
    For Each Dir As String In Dirs 
     GetDirectories(Dir, DirectoryList) 
    Next 
    Catch ex As Exception 
End Try 
End Sub 

（OR）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     For Each Dir As String In Directory.GetDirectories("c:\Program Files") 
      ListBox1.Items.Add(Dir) 
     Next 
End Sub 

編輯

根據VB.NET 05, List Folder, SubFolders, and Sub SubFolders：

最有效的方法是使用遞歸性：

Private Function getAllFolders(ByVal directory As String) As String() 
     'Create object 
     Dim fi As New IO.DirectoryInfo(directory) 
     'Array to store paths 
     Dim path() As String = {} 
     'Loop through subfolders 
     For Each subfolder As IO.DirectoryInfo In fi.GetDirectories() 
      'Add this folders name 
      Array.Resize(path, path.Length + 1) 
      path(path.Length - 1) = subfolder.FullName 
      'Recall function with each subdirectory 
      For Each s As String In getAllFolders(subfolder.FullName) 
       Array.Resize(path, path.Length + 1) 
       path(path.Length - 1) = s 
      Next 
     Next 
     Return path 
End Function 

Answer 2

使用Directory.GetDirectories方法。

DirectoryInfo dinfo = new DirectoryInfo("path"); 

dinfo.GetDirectories();