vb.net - vb.net | 指定されたパスで空のサブディレクトリを取得する方法は? vb.net の使用

Question

私のディレクトリ構造は以下のようなものです。

• dir1 > subdir1_1 >((subdir1_1_1 >subdir1_1_1_1),subdir1_1_2)

• dir2

  2 つのメイン ディレクトリと subdir1_1 には 2 つのサブディレクトリ (subdir1_1_1 、subdir1_1_2) があり、subdir1_1_1 にはサブディレクトリ "subdir1_1_1_1" があります。

Ok

今、私はこのコードを持っています

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim BaseFolder As New IO.DirectoryInfo(Me.TextBox1.Text)

        For Each f As IO.DirectoryInfo In BaseFolder.GetDirectories()
            AddContents(f)
        Next
    End Sub
    Sub AddContents(ByVal BaseFolder As IO.DirectoryInfo)


        For Each subF As IO.DirectoryInfo In BaseFolder.GetDirectories()


            ListBox1.Items.Add(BaseFolder.FullName)

            AddContents(subF)
        Next
    End Sub
End Class

そして私の textbox1.text= "C:\test"

結果には subdir1_1_1_1 と subdir1_1_2 がありません。どうして ？？

どこが問題？？空のフォルダを取得できないのはなぜですか? ここに画像の説明を入力

Answer 1

こうやってみる

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim BaseFolder As New IO.DirectoryInfo(Me.TextBox1.Text)
    ListBox1.Items.Clear()
    AddContents(BaseFolder)
End Sub

Sub AddContents(ByVal BaseFolder As IO.DirectoryInfo)
    ListBox1.Items.Add(BaseFolder.FullName)
    For Each subF As IO.DirectoryInfo In BaseFolder.GetDirectories()
        AddContents(subF)
    Next
End Sub