ik probeer de map p 15c te verplaatsen naar Folder, en dat dus dat p 15c map met alles wat er in staat verplaatst van het bureaublad, maar hij reageert niet.
HTML:
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
Laatst bewerkt: