' In Modul
' Verweis auf das FileSystemObject
Public oFSO As New FileSystemObject
 
Private Sub Command1_Click()
' Ordner kopieren
Dim sFolder As String
Dim sCopyTo As String
 
' Ausgangsordner
sFolder = "D:\temp"
 
' Neues Ziel
sCopyTo = "C:\A"
 
' Ordner samt Inhalt kopieren
oFSO.CopyFolder sFolder, sCopyTo
End Sub