<code>Dim I As Integer
Dim sFile As String
 
With File1
  .Path = "c:DeinVerzeichnis"
  .Pattern = "*.*"
  .Refresh
 
  For I = 0 To .ListCount - 1
    sFile = .Path & .List(I)
 
    <font color=green>' Hier erfolgt die Bearbeitung
    ' die Datei selbst ist in der Variable "sFile" gespeichert</font>
 
  Next I
End With</code>