Sub Befehl_ausfuehren_mit_Ausgabe_in_MsgBox()
   Dim objShell As Object, objExec As Object
   Dim sQuelle As String, sZiel As String, sParameter As String, sResult As _
     String
   sQuelle = Chr(34) & "D:\TEMP\Org" & Chr(34)
   sZiel = Chr(34) & "D:\TEMP\loeschen" & Chr(34)
   sParameter = Chr(34) & " /E" & Chr(34)
 
   Set objShell = CreateObject("WScript.Shell")
   Set objExec = objShell.Exec("robocopy " & sQuelle & " " & sZiel & " " & _
     sParameter)
   sResult = objExec.StdOut.ReadAll
   MsgBox sResult
   Set objShell = Nothing
   Set objExec = Nothing
End Sub

Option Compare Database
Option Explicit
 
Sub testRoboCopy()
 
Dim sApplication As String
Dim sQuelle As String
Dim sZiel As String
Dim sParameter As String
Dim doIt As String
 
sApplication = Chr(34) & "C:\Windows\System32\robocopy.exe " & Chr(34)
 
'sQuelle = Chr(34) & "\\Server\Ordner\Unterordner\" & Chr(34)
'sZiel = Chr(34) & "\\ClientXY\C$\TEMP\temp\" & Chr(34)
 
sQuelle = Chr(34) & "C:\TEMP\TEST\" & Chr(34)
sZiel = Chr(34) & "C:\TEMP\loeschen\" & Chr(34)
 
sParameter = Chr(34) & " /E" & Chr(34)
 
doIt = sApplication & " " & sQuelle & " " & sZiel & " " & sParameter
'Debug.Print doIt
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    wsh.Run "CMD /C ROBOCOPY " & sQuelle & " " & sZiel & " ", False, 0
    ' wsh.Run doit, False,0
End Sub

    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    wsh.Run "C:\Windows\System32\cmd.exe /C ROBOCOPY.EXE " & sQuelle & " " & _
      sZiel & " " & sParameter, False, 0