やり方
まず『コマンドプロンプトを使う為のクラス』が使えるように参照設定。
Windows Script Host Object Model
サンプルコード
'コマンドプロンプトを使う為のクラス。
Dim wsh_shell_ As New IWshRuntimeLibrary.WshShell
'実行結果保持用。
Dim shell_result_ As IWshRuntimeLibrary.WshExec
'フォルダーを作成するコマンド。
Dim command_ As String
command_ = "mkdir C:\Users\d\Desktop\bat\test"
'コマンド実行して結果を保持。
Set shell_result_ = wsh_shell_.Exec("%ComSpec% /c " & command_)
'結果確認。
Debug.Print shell_result_.ExitCode
ExitCode 以外にも下記のようなものが取得できる。
Run()
WshShellには Run() という関数もある。
| 関数名 | コマンドプロンプト画面 | コマンド実行結果取得 |
|---|---|---|
| Run() | 表示されない | できない |
| Exec() | 表示される | できる |
蛇足
『もしコマンドが失敗したらユーザーに通知 or メール通知 or ログ出力』
という要件が後から追加されることがある。
個人的には最初からExec()で作っておいた方がいいかなあって思う。
参考サイトさん
バージョン
Windows 10 Pro 21H2 OSビルド 19045.2251
Microsoft Access for Microsoft 365 MSO (バージョン 2209 ビルド 16.0.15726.20068) 32 ビット