列出VB.net中的所有子目录

Question

谁能告诉我如何列出vb.net中的所有子文件夹。 我想把它放在一个列表框中，我已经创建了一个代码，但它只在当前位置上搜索，并且不包含子文件夹。这里是我的代码,,

Imports System.IO 

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim dnum, fnum As Integer 


     For Each drive As String In Directory.GetLogicalDrives() 
      ListBox1.Items.Add(drive) 
     Next drive 

     Do While dnum < ListBox1.Items.Count - 3 


      Dim di As New DirectoryInfo(ListBox1.Items(dnum)) 
      'for every subdirectory in the folder, add its name to the listbox 
      For Each subdi As DirectoryInfo In di.GetDirectories 
       ListBox2.Items.Add(subdi.Name) 
      Next 
      dnum = dnum + 1 

     Loop 

     dnum = 0 
     Do While dnum < ListBox1.Items.Count - 2 
      fnum = 0 
      Do While fnum < ListBox2.Items.Count 
       Dim loc As String 


       loc = (ListBox1.Items(dnum) + ListBox2.Items(fnum)) 

       Try 
        Dim di As New DirectoryInfo(loc) 
        'for every subdirectory in the folder, add its name to the listbox 
        For Each subdi As DirectoryInfo In di.GetDirectories 
         ListBox3.Items.Add(subdi.Name) 
        Next 
       Catch ex As Exception 
       End Try 

       fnum = fnum + 1 

      Loop 
      dnum = dnum + 1 
     Loop 
    End Sub 
End Class 

Answer 1

使用Directory.GetDirectories()静态方法（MSDN Reference），

System.IO.Directory.GetDirectories("path","searchpattern",SearchOption.AllDirectories) 

或实例方法，

Dim di As New DirectoryInfo(Loc) 
di.GetDirectories("search", SearchOption.AllDirectories) 

Answer 2

在VB.NET中存在My命名空间，其暴露各种基础设施。

你可以得到一个文件夹，如下所示：

My.Computer.FileSystem.GetDirectories("your directory", 
    SearchOption.SearchAllSubDirectories, "*") 

Answer 3

“这个代码将根据你的问题

Imports System.IO 
Imports System.Management 
Public Class Form1 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     For Each drv In Environment.GetLogicalDrives() 
      ComboBox1.Items.Add(drv) 
     Next 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     For Each drvs In Directory.GetDirectories(ComboBox1.Text) 
      ListBox1.Items.Add(drvs) 
      If drvs.ToString.Length > 0 Then 
       Try 
       For Each di In Directory.GetDirectories(drvs) 
        ListBox1.Items.Add(di) 
        Next 
       Catch ex As Exception 

       End Try 
      End If 

     Next 
    End Sub 
End Class 

Answer 4

我已经添加了一些选项要么名单只是当前文件夹级别的工作，或做递归，即列出所有级别。

Private Sub ListDirectories(RootFolder As String) 
    For Each drvs In Directory.GetDirectories(RootFolder) 
     '--\\ Display the folder 
     lstFolders.Items.Add(drvs)    
     '--\\ Checkbox determines whether or not to display only the current folders 
     If chkTopLevelOnly.Checked = False Then 
      If drvs.ToString.Length > 0 Then 
       Try 
        For Each di In Directory.GetDirectories(drvs) 
         lstFolders.Items.Add(di & "\") 
         Application.DoEvents() 
         '--\\ Do recursive call to this routine until 
         '--\\ the last branch has been reached 
         ListDirectories(di) 
         Application.DoEvents() 
        Next 
       Catch ex As Exception 

       End Try 
      End If 
     End If 
    Next 
End Sub