Ordner nach Dateien durchsuchen (VB 2005) Mit Hilfe der GetFiles-Funktion der My.Computer.FileSystem-Klasse lassen sich unter VB.NET 2005 sehr schnell gesamte Ordner und Unterordner nach bestimmten Dateien durchsuchen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  18.860
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der GetFiles-Funktion der neuen My.Computer.FileSystem-Klasse lassen sich unter VB.NET 2005 sehr schnell gesamte Ordner und Unterordner nach bestimmten Dateien durchsuchen.

Dim sFile As String
Dim sPath As String
 
' Startverzeichnis
sPath = Application.StartupPath
 
' alle Dateien im Startverzeichnis einschl. Unterordner 
' in einer ListBox anzeigen
For Each sFile In My.Computer.FileSystem.GetFiles( _
  sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
  ListBox1.Items.Add(sFile)
Next

Weiters Beispiel:
Es sollen alle Dateien mit der Endung ".txt" ermittelt werden, wobei die Dateien mit relativen Pfadangaben zum Startverzeichnis in der ListBox angezeigt werden sollen.

Dim sFile As String
Dim sPath As String
 
' Startverzeichnis
sPath = Application.StartupPath
 
' ggf. abschließenden Backslash hinzufügen
If Not sPath.EndsWith("\") Then sPath += "\"
 
' alle TXT-Dateien im Startverzeichnis einschl. Unterordner 
' in einer ListBox anzeigen
For Each sFile In My.Computer.FileSystem.GetFiles( _
  sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
 
  ' Dateiname mit relativer Pfadangabe zum Startverzeichnis ausgeben
  ListBox1.Items.Add(sFile.Substring(sPath.Length))
Next