met excel een map naar een ander map verplaatsen.

Private Sub CommandButton2_Click()

Dim SourceFolder As String
Dim TargetFolder As String

'Path of the folder where files are locted
    SourceFolder = "C:\Users\paulm\OneDrive\Bureaublad\p 15c"
    
    TargetFolder = "C:\Users\paulm\Onedrive\Bureaublad\Folder"

'Checking if the source and target folder exist
If Dir(SourceFolder, vbDirectory) <> "" And Dir(TargetFolder, vbDirectory) <> "" Then

'If folder has files, then files will also move with folder
Call Shell("cmd.exe /S /C" & "move " & SourceFolder & " " & TargetFolder & "&&" & " Exit")
MsgBox "Source folder has moved to target folder"

Else
MsgBox "Either source or destination folder does not exist"
End If
End Sub

Private Sub CommandButton2_Click()
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.MoveFolder "C:\Users\paulm\OneDrive\Bureaublad\p 15c", "C:\Users\paulm\Onedrive\Bureaublad\Folder\"
End Sub

Private Sub CommandButton2_Click()
   CreateObject("Scripting.FileSystemObject").MoveFolder "C:\Users\paulm\OneDrive\Bureaublad\p 15c", "C:\Users\paulm\Onedrive\Bureaublad\Folder\"
End Sub