Excelからrobocopyを使うExcelVBA

Excelからrobocopyを使ってファイルコピーしたい。

できればコマンドプロンプトが表示されない方法で。と依頼されたので、マクロ作成しました。

Function RunRoboCopy(copyFile, targetFile, fileName) As Boolean

    Dim wsh As Object
    Dim cmd As String

    Set wsh = CreateObject("WScript.Shell")
    cmd = "robocopy " & copyFile & " " & targetFile & " " & fileName
    
    RunRoboCopy = wsh.Run("%ComSpec% /c " & cmd, 0, True)
    
    Set wsh = Nothing

End Function


Sub RoboCopytestmacro()
    Dim result As Boolean
    result = RunRoboCopy("C:\workspace\robocopytest\コピー元", "C:\workspace\robocopytest\コピー先", "test.txt")
    Select Case result
        Case True
            MsgBox "成功"
        Case Else
            MsgBox "失敗"
        End Select
End Sub