Dim sFile As String
 
sFile = Dir$("c:\eingang\*.pce")
Do While sFile <> "" 
  If sFile <> "." And sFile <> ".." Then
    FileCopy "c:\eingang\" & sFile, "d:\ordner\" & sFile
    Exit Do
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de