' In Modul
' Verweis auf das FileSystemObject
 
Option Explicit
Public Datensicherung As New FileSystemObject

Private Sub Command1_Click()
 
Dim Quelle As String
Dim Ziel As String
 
' Quellordner
Quelle = "C:\Meine Daten
 
' Zielordner
Ziel = "D:\"
 
   ' jetzt wird kopiert
    Datensicherung.CopyFolder Quelle, Ziel
 
End Sub

Jeder f?ngt irgendwann neu an, daher bitte um Verst?ndniss, Bigdaddy