すべてのサブフォルダを返さないように特定の深さにフォルダを検索します。

Question

私は、クリックするとテキストボックスに含まれるすべてのサブフォルダのリストボックスに値を設定します。特定の深度/レベルのサブフォルダのみを返すように検索を実行することは可能ですか？例えば

、代わりに：

のfolder1> subfolder1> subfolder2> subfolder3> subfolder4

私は、最初の2つのレベル戻るためにそれを伝えることができます。 のfolder1> subfolder1> subfolder2>

を現在のコードは次のとおりです

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    AddFolders(txtsearchdirectory.Text) 
End Sub 
Private Sub AddFolders(root As String) 
    ListBox1.Items.Add(root) 
    Try 
     For Each folder As String In My.Computer.FileSystem.GetDirectories(root) 
      AddFolders(folder) 
      Application.DoEvents() 
     Next 
    Catch ex As Exception 
     System.Windows.Forms.MessageBox.Show(ex.Message) 
    End Try 
End Sub 

Answer 1

大量のツリービューで作業しているときに、このようにしました。私はそれをテストし、あなたが求めていることをしているようだ。変数を最大にしたい場合は、別のパラメータを追加してチェーンに渡します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    AddFolders(txtsearchdirectory.Text, 0) 
End Sub 

Private Sub AddFolders(root As String, recursionDepth As Integer) 
    If recursionDepth <= 2 Then 
     ListBox1.Items.Add(root) 
     Try 
      For Each folder As String In My.Computer.FileSystem.GetDirectories(root) 
       AddFolders(folder, recursionDepth + 1) 
       Application.DoEvents() 
      Next 
     Catch ex As Exception 
      System.Windows.Forms.MessageBox.Show(ex.Message) 
     End Try 
    End If 
End Sub