Dim sSourcePath As String
Dim sDestPath As String
Dim sFile As String
 
sSourcePath = "C:\Ordner1\"
sDestPath = "I:\Sicherung\Ordner1\"
 
sFile = Dir$(sSourcePath & "*.*")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    FileCopy sSourcePath & sFile, sDestPath & sFile
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de