Dim objDatei As IO.FileSystemInfo
    Dim objVerzeichnis As IO.DirectoryInfo
 
    objVerzeichnis = New IO.DirectoryInfo(... Verzeichnisname, z.B.: _
      "C:\Windows" ...)
 
    For Each objDatei In objVerzeichnis.GetFileSystemInfos
 
      If objDatei.Extension.ToUpper = ".TXT" then
 
      ... Datei öffnen und auslesen (Dateiname = objDatei.Name) ...
 
      End If
 
    Next