Dateien ermitteln
Mit folgendem Code können alle Dateien in einem bestimmten Verzeichnis ermitteln werden.
' Alle Dateien im Verzeichnis C:\Windows ermitteln Private Sub Dateien() Dim Datei As IO.FileInfo Dim Verzeichnis as New IO.DirectoryInfo("C:\Windows") For Each Datei in Verzeichnis.GetFiles MsgBox(Datei.Name) Next End Sub