Alle Ordnernamen ohne Unterornder auslesen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Alle Ordnernamen ohne Unterornder auslesen

    Ich will das er mir alle Ordner ohne unterordner in einen bestimmten Pfad anzeigen lassen. Bisher habe Ich das:


    Visual Basic-Quellcode

    1. Imports System.IO
    2. Module Module1
    4. Dim bver As String
    6. Sub Main()
    7. bver = InputBox("Basisverzeichnise: ")
    8. Call SucheAlleOrdner(bver)
    9. Console.ReadLine()
    10. End Sub
    12. Private Sub SucheAlleOrdner(ByVal Pfad As String)
    13. Dim AlleOrdner() As String
    14. AlleOrdner = Directory.GetDirectories(Pfad, "*.inp", SearchOption.TopDirectoryOnly)
    15. For i As Integer = 0 To AlleOrdner.Length - 1
    16. If AlleOrdner(i) <> Pfad Then
    17. Dim Filename As String = System.IO.Path.GetFileName(AlleOrdner(i))
    18. Console.WriteLine(AlleOrdner(i))
    19. Call SucheAlleOrdner(AlleOrdner(i))
    20. End If
    21. Next i
    22. End Sub
    24. End Module

    Oder mit DirectoryInfo, das kann man direkt an z. B. ne ListBox binden.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Wissen ja nicht was der Te damit will, aber im Fall einer Listbox wäre deines eleganter. Das was er oben gezeigt hat sieht eher nach einer Consoleapplication aus ;)

    Erst jetzt aufgefallen: 8| @TE nimm mal den ganzen VB6 Kram daraus. Call geht garnicht.

    8-) faxe1008 8-)

    @Manschk3rl Willkommen im Forum. :thumbup:

    faxe1008 schrieb:

    Wissen ja nicht was der Te damit will
    Egal, was Du willst, lass es zunächst sein und sieh Dir an, welche Alternativen es gibt. Mit @Trade sieht das so aus:

    VB.NET-Quellcode

    1. Using dlg As New FolderBrowserDialog
    2. If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
    3. Return
    4. End If
    5. Dim di = New IO.DirectoryInfo(dlg.SelectedPath).GetDirectories("*.*", IO.SearchOption.TopDirectoryOnly) ' wähle aus, was Du brauchst
    6. 'Dim di = New IO.DirectoryInfo(dlg.SelectedPath).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    7. ListBox1.DataSource = di
    8. End Using
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende