Vb.net 列出目录中的所有文件夹

似乎找不到一个方法来做到这一点，谷歌让我失望

请帮忙，谢谢

试试这个：

Imports System
Imports System.IO

Class Program
    Shared Sub Main()
        For Each Dir As String In Directory.GetDirectories("c:\Program Files")
            Console.WriteLine(Dir)
        Next
    End Sub
End Class

---

我使用的方法返回一个字符串数组，每个字符串对应于我作为方法参数提供的目录的每个子目录。

感谢您给出答案！虽然一个代码片段可以回答这个问题，但添加一些附加信息仍然很好，比如解释等等。“谷歌让我失望了！”-哦，真的吗？

DirectoryInfo di = new DirectoryInfo("path");

di.GetDirectories();

di = New DirectoryInfo(path)

rgFiles = di.GetFiles("*.*", IO.SearchOption.AllDirectories)

For Each fi As FileInfo In rgFiles
    If CheckIfExist(fi.FullName.ToString.Replace("\" & fi.Name, "")) = False Then
        ListBox1.Items.Add(fi.FullName.ToString.Replace("\" & fi.Name, ""))
    End If
Next

Public Function CheckIfExist(ByRef Path As String) As Boolean
    Dim RetVal As Boolean = False

    For Each LI As String In ListBox1.Items
        If LI.ToString = Path Then
            RetVal = True
            Return RetVal
            Exit Function
        End If
    Next
    Return RetVal
End Function