Wie bekommt man die Liste aller Verzeichnisse und Unterverzeichnisse in einem angegebenen Pfad mit vb.net

Meine Verzeichnisstruktur ist wie folgt.

Parent directory

---Sub-Verzeichnis-1
---Sub-Verzeichnis-2
------Sub directory2a
------Sub directory2b
---Sub-directory-3

Schreibe ich in VB.net Holen Sie den Verzeichnis-Namen (samt Unterverzeichnissen in allen Ebenen)

Jedoch während der Nutzung-Verzeichnis.getfilesystementries(Pfad) ich bin immer nur die top-level-Unterverzeichnisse. Irgendeine Idee, wie man Holen Sie die Namen der Unterverzeichnisse von allen sub-Ebenen?

InformationsquelleAutor Jeyaganesh | 2011-08-29
  1. 1

    verwenden Sie einfach so etwas wie dieses:

    Dim result = System.IO.Directory.EnumerateDirectories(path, "*", System.IO.SearchOption.AllDirectories)

    der trick ist, die SearchOption.AllDirectories

    BTW: das gleiche können Sie mit Ihren GetFileSystemEntries-Methode

    • +1 hat mich um 2 Minuten, mit einem anderen Weg, es zu tun, aber den gleichen Schlüssel Teil (SearchOption.AllDirectories) 🙂
    • vielen Dank - passiert mir ständig 😉
    • Solange der OP bekommt die Antwort, die Sie benötigen, es ist alles gut.
    • Danke. Ich vermisste die searchoption Teil 😀
    InformationsquelleAutor Carsten
  2. 1

    Directoryinfo-Objekt können alle möglichen Informationen und ein Verzeichnis, einschließlich der Verzeichnisse /Dateien, auch system-Dateien

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim dir As New DirectoryInfo("C:\")
    For Each dirItem As DirectoryInfo In dir.GetDirectories
        MsgBox(dirItem.Name)
    Next
End Sub
    InformationsquelleAutor spacemonkeys
  3. 1
    Dim di As New DirectoryInfo(FolderName)
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
    InformationsquelleAutor Hemant Patil
  4. 0

    Müssen Sie die überladene version von Directory.GetFileSystemEntries, der angibt, ob oder nicht, der Suche Unterverzeichnisse:

    Dim allDirectories As String() = Directory.GetFileSystemEntries("path", "*", SearchOption.AllDirectories)

    - Verzeichnis.GetFileSystemEntries-Methode (String, String, SearchOption)

    InformationsquelleAutor Tim
Schreibe einen Kommentar