vb.net |如何获取指定路径中的空子目录？使用 vb.net答案

【问题标题】：vb.net | How to get empty subdirectories in a specified path ? using vb.netvb.net |如何获取指定路径中的空子目录？使用 vb.net
【发布时间】：2015-12-26 13:44:55
【问题描述】：

我的目录结构如下。

dir1 > subdir1_1 >((subdir1_1_1 >subdir1_1_1_1),subdir1_1_2)
目录2

两个主目录和 subdir1_1 有 2 个子目录 (subdir1_1_1 ,subdir1_1_2) 和 subdir1_1_1 有子目录 "subdir1_1_1_1"

好的

现在我有了这个代码

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 。为什么？？

哪里有问题？？为什么我不能得到空文件夹？ enter image description here

【问题讨论】：

标签： vb.net directory directoryinfo getdirectories

【解决方案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

【讨论】：