Ich will das er mir alle Ordner ohne unterordner in einen bestimmten Pfad anzeigen lassen. Bisher habe Ich das:
Visual Basic-Quellcode
- Imports System.IO
- Module Module1
- Dim bver As String
- Sub Main()
- bver = InputBox("Basisverzeichnise: ")
- Call SucheAlleOrdner(bver)
- Console.ReadLine()
- End Sub
- Private Sub SucheAlleOrdner(ByVal Pfad As String)
- Dim AlleOrdner() As String
- AlleOrdner = Directory.GetDirectories(Pfad, "*.inp", SearchOption.TopDirectoryOnly)
- For i As Integer = 0 To AlleOrdner.Length - 1
- If AlleOrdner(i) <> Pfad Then
- Dim Filename As String = System.IO.Path.GetFileName(AlleOrdner(i))
- Console.WriteLine(AlleOrdner(i))
- Call SucheAlleOrdner(AlleOrdner(i))
- End If
- Next i
- End Sub
- End Module