コマンドプロンプトで指定したコマンドを実行する

2019年7月2日2021年8月22日

ExecuteCommandPrompt関数

コマンドプロンプト上で引数で指定したコマンドを実行し、実行結果を取得する関数。
※ ShowErrorMessage関数についてはリンク先をご参照ください。

'==================================================
' <summary>
' コマンドプロンプトで指定したコマンドを実行する
' </summary>
' <param name="command">コマンド</param>
' <returns>コマンド実行結果</returns>
'==================================================
Public Function ExecuteCommandPrompt(ByVal command As String) _
        As String

    Dim result As Object

    On Error GoTo Catch

    ExecuteCommandPrompt = ""

    With CreateObject("WScript.Shell")
        With .exec("%ComSpec% /c " &amp;amp; command)

        Do While .Status = 0
            DoEvents
        Loop

        ExecuteCommandPrompt = .StdOut.ReadAll

        End With
    End With

    Exit Function

Catch:
    Call ShowErrorMessage("ExecuteCommandPrompt")

End Function

実行方法

'==================================================
' <summary>
' ExecuteCommandPrompt関数のテスト
' </summary>
'==================================================
Sub TestExecuteCommandPrompt()

    Dim result As String

    result = ExecuteCommandPrompt("dir C:\Test")

    MsgBox result

End Sub

実行結果