schau Dir in der VBA-Hilfe die Funktion 'DIR' an, steht alles drin.
Code:Dim tName as String tName = DIR("C:\TEMP\*Max*.txt") Do While (len(tName) > 0) 'dann hast Du jetzt mal Name für Name 'Deine Funktion damit ausführen tName = DIR 'holt den nächsten Dateinamen Loop