Dateien eines Ordners inkl. Unterordner rekursiv ermitteln Mit diesem Code lassen sich alle Dateien eines Ordners inkl. Unterordner ermitteln.
Autor:   Philipp Bandl	Bewertung:	Views:  54.102
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Nachfolgender Code ermittelt alle Dateien eines Ordners inkkl. deren Unterordner und zeigt diese in einer ListBox an.

Erstellen Sie ein neues Windows-Forms Projekt und ziehen auf die Form ein ListBox-Control, sowie einen Button.
Beim Klick auf den Button werden Sie nach dem Ausgangsverzeichnis gefragt. Anschließend werden alle im Ordner enthaltenen Dateien im ListBox-Control angezeigt, wobei auch Unterordner durchsucht werden.

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  Dim oDir As IO.DirectoryInfo
  oDir = New IO.DirectoryInfo(InputBox("Bitte Verzeichnis eingeben:"))
 
  ' alle Dateien des Ordners ermitteln 
  ' und in der ListBox anzeigen
  Rekursiv(oDir)
End Sub

Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
  Dim oSubDir As IO.DirectoryInfo
  Dim oFile As IO.FileInfo
 
  ' zunächst alle Dateien des Ordners aufspüren
  For Each oFile In oDir.GetFiles()
    With oFile
      ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab & _
        .Length & vbTab & .LastWriteTime)
    End With
  Next
 
  ' Jetzt alle Unterverzeichnis durchlaufen
  ' und die Prozedur rekursiv selbst aufrufen
  For Each oSubDir In oDir.GetDirectories()
    Rekursiv(oSubDir)
  Next
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.