[TuT] Alle Unterverzeichnisse auflisten

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • [TuT] Alle Unterverzeichnisse auflisten

      Vorweg: Um die Projekt datei nutzen zu können müsst ihr Visual Basic 2010 haben, andernfalls einfach coden.
      ====================================================

      In diesem Tutorial werde ich euch zeigen wie ihr die Unterverzeichnisse aus einem pfad anzeigen könnt.

      ===================================
      ===================================
      •Was wir brauchen
      - Eine ListBox
      ===================================
      ===================================

      ===================================
      ===================================

      Zuerst brauchen wir die System.IO
      Dieser Text kommt über Public Class Form1.
      Imports System.IO


      Der Anzeigeprozedur wird am einfachsten gleich beim Laden von Form1 aufgerufen:
      listAllSubDirectories("c:\", ListNox1) ' "c:\" ist der Pfad vom Ordner


      Der Anzeigeprozedur werden als Parameter das übergeordnete Verzeichnis (hier Root-Directory) und eine Listbox übergeben:
      Public Sub listAllSubDirectories(ByVal pfad as String, ByVal lb As Listbox)


      DirectoryInfo-Objekt erzeugen:
      Dim myDir as New DirectoryInfo(pfad)


      Array zum Speichern der Unterverzeichnisse anlegen:
      Dim mydirs() As DirectoryInfo


      Unterverzeichnisse ermitteln und im Array ablegen:
      myDirs = myDir.GetDirectories()


      Unterverzeichnisse durchlaufen...
      For i As Integer = 0 To myDirs.Length - 1


      ...und Verzeichnisnamen zur ListBox hinzufügen:
      lb.Items.Add(myDirs(i).Name)
      Next i
      End Sub


      ===================================
      ===================================
      Und am ende sieht der Source Code so aus:
      Imports System.IO

      Public Class Form1

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      listAllSubDirectories("c:\", ListBox1)
      End Sub

      Public Sub listAllSubDirectories(ByVal pfad As String, ByVal lb As ListBox)
      Dim myDir As New DirectoryInfo(pfad)
      Dim myDirs() As DirectoryInfo
      mydirs = myDir.GetDirectories()
      For i As Integer = 0 To myDirs.Length - 1
      lb.Items.Add(myDirs(i).Name)
      Next i
      End Sub
      End Class

      ===================================
      ===================================

      Hier nochmal das Projekt als Datei.

      Download
      Alle Unterverzeichnisse auflisten.rar

      Virustotal
      Klick mich Ergebnis (1/41) Die 1 weil es ein Archiv ist.

      ===================================
      ===================================

      Optional können wir noch eine TextBox und einen Button nutzem um verschiedene Pfade zu betrachten.



      Dafür löschen wir den Code beim laden und klicken doppelt auf den Button und schreiben den code darein
      Diesen löschen:
      listAllSubDirectories("c:\", ListBox1)


      Diesen in den Button1 eingeben:
      listAllSubDirectories(Textbox1.Text, ListBox1)


      So können wir die Pfade jeweils ändern.

      ===================================
      ===================================

      Credits: Sedrika
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )