Dim sFile As String
' erste Datei suchen
sFile = Dir("C:\*.txt", vbArchive + vbHidden + vbReadOnly + vbSystem)
' nächste im gleichen Pfad mit gleichem Suchmuster
sFile = Dir()
' nächste im gleichen Pfad mit gleichem Suchmuster
sFile = Dir()
' ...

Dim sFile As String
' erste Datei suchen
sFile = Dir("C:\*.txt", vbArchive + vbHidden + vbReadOnly + vbSystem)
While sFile <> ""
  ' nächste im gleichen Pfad mit gleichem Suchmuster
  sFile = Dir()
Wend

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.