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 SubPublic 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