Option Explicit
 
' Windows Scripting Runtime
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sPath As String
 
 
Private Sub copy_Click()
 
' Hier den vollständigen Ordnerpfad angeben
 sPath = "e:\test\"
 
Set Folder = FSO.GetFolder(sPath)
Folder.copy "f:\test"
 
End Sub