Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB.NET | 04.07.06 |
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: | Views: 44.014 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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