<code>Dim strFilename As String
Dim I As Integer
Dim F As Integer
 
With File1
  For I = 0 To .ListCount - 1
    strFilename = .List(I)
    <font color=green>' Jetzt Datei öffnen, editieren und schliessen</font>
    F = FreeFile
    Open .Path & "" & strFilename For Input As #F
    ....
    Close #F
  Next I
End With</code>

<code>Dim strPath As String
Dim strExtension As String
Dim strFiles() As String
Dim I As Integer
Dim DirName As String
Dim nCount As Long
Dim F As Integer
 
strPath = "Ordner-Pfad"  <font color=green>' inkl. abschliessenden 
' Backslash</font>
strExtension = "*.txt"
 
<font color=green>' Alle Dateien ermitteln</font>
nCount = 0
DirName = Dir(strPath & strExtension, vbNormal)
While DirName <> ""
  If DirName <> "." And DirName <> ".." Then
    nCount = nCount + 1
    ReDim Preserve strFiles(nCount)
    strFiles(nCount) = DirName
  End If
  DirName = Dir
Wend
 
<font color=green>' Jetzt Dateien editieren</font>
For I = 1 To nCount
  F = FreeFile
  Open strPath & strFiles(I) For Input As #F
  ...
  Close #F
Next I</code>