Dim oDir As IO.DirectoryInfo
Dim oFile As IO.FileInfo
 
oDir = New IO.DirectoryInfo("c:\ordner")
For Each oFile In oDir.GetFiles()
  Debug.Print(oFile.Name)
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de