Private Sub cmdKopieren_Click()
 
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
 
sFolderPath = "G:\Datenbanken\"
sDestPath = "C:\Datenbanken\"
Set Folder = FSO.GetFolder(sFolderPath)
Folder.Move sDestPath
 
End Sub