Dim Datei1, Pfad1, Name1
Dim myTextFIle as string
File1.pattern="*.txt"
Pfad1 = "c:\"   ' Pfad deines Hauptordners setzen.
Name1 = Dir(Pfad1, vbDirectory)   ' Ersten Eintrag abrufen.
Do While Name1 <> ""   ' Schleife beginnen.
   ' aktuelles und übergeordnetes Verzeichnis ignorieren.
   If Name1 <> "." And Name1 <> ".." Then
      ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein Verzeichnis ist.
      If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
      With File1
         .Clear
         .Refresh
         .Path=(Pfad1 & Name1)    'ermittelten Ordner als Pfad für File1 setzen
          For n=0 to .Listcount
             myTextFIle=(.Path & "\" & File1.List(n)
          '+++ HIER ZUM  LESEN DER DATEI  VERZWEIGEN
          next n
    End with
      End If
   End If
   Name1 = Dir   ' Nächsten Eintrag abrufen.
Loop