Dim sFile As String
Dim sPath As String
 
sPath = "c:\verzeichnis\"
sFile = Dir$(sPath & "*.typ")
Do Until sFile = ""
  If sFile <> "." And sFile <> ".." Then
    ' Jetzt Datei auswerten
    MsgBox sPath & sFile
    ...
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de