Private Sub Cmd_CopyStart_Click()
' Ordner kopieren
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
 
' Welcher Ordner soll kopiert werden?
''sFolderPath = "c:\Quelle\"
 
 
' Wohin soll der Ordner kopiert werden?
sDestPath = "d:\"
 
' Kopiervorgang starten
Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath
End Sub

 
''sFolderPath = "\\Server\Freigabe"