Hallo,
ich habe mir ein Programm geschrieben womit ich mit einem FolderBrowserDialog einen Ordner auswählen kann, wo mir dann alle Ordner und Unterordner angezeigt werden. Soweit auch einfach. Kennt jemand eine Gute lösung die unterordner der unterordner auch anzuzeigen? Und falls die unterordner auch unterordner haben die auch anzeigen. Bis es keine Unterordner mehr gibt.
Mein code
Peter86
ich habe mir ein Programm geschrieben womit ich mit einem FolderBrowserDialog einen Ordner auswählen kann, wo mir dann alle Ordner und Unterordner angezeigt werden. Soweit auch einfach. Kennt jemand eine Gute lösung die unterordner der unterordner auch anzuzeigen? Und falls die unterordner auch unterordner haben die auch anzeigen. Bis es keine Unterordner mehr gibt.
Mein code
Code:
Dim dir_list As New List(Of String)
Dim FolderBrowserDialog1 As New FolderBrowserDialog
With FolderBrowserDialog1
.Description = "Select the directory"
If .ShowDialog = DialogResult.OK Then
dir_list.Add(.SelectedPath)
For Each dire In Directory.GetDirectories(.SelectedPath)
dir_list.Add(dire)
Next
End If
End With
Peter86
Zuletzt bearbeitet: