Dim sPath As String
Dim sFile As String
 
sPath = "c:\ausgangs_ordner\"
sFile = Dir$(sPath & "*.txt")
While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    FileCopy sPath & sFile, "d:\ziel_ordner\" & sFile
  End If
  sFile = Dir$
Wend

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de