Private Sub Command1_Click() 
  Dim sSourcePath As String
  Dim sDestPath As String
  Dim sFile As String
 
  ' Quell-Pfad
  sSourcePath = Trim$(TextBoxQuelle.Text)
  If Right$(sSourcePath, 1) <> "\" Then sSourcePath = sSourcePath & "\"
 
  ' Ziel-Pfad
  sDestPath = Trim$(TextBoxZiel.Text)
  If Right$(sDestPath, 1) <> "\" Then sDestPath = sDestPath & "\"
 
  ' Alle Dateien einzeln kopieren
  sFile = Dir$(sSourcePath & "*.*", vbNormal)
  Do While sFile <> ""
    If sFile <> "." And sFile <> ".." Then
      FileCopy sSourcePath & sFile, sDestPath & sFile
    End If
    sFile = Dir$()
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de