vba - 以下のコードが CMD ウィンドウで dir 呼び出しをトリガーしないのはなぜですか?

Question

CMDウィンドウを開いて dir を呼び出そうとしています。

r = Shell("cmd.exe", vbNormalFocus)
AppActivate r
SendKeys "dir", True 'put your exe path/name here instead of dir
SendKeys "{ENTER}"

開きますが、印刷も実行もされcmd.exeません。dirdir

Answer 1

簡単に電話してみませんか：

r = Shell("cmd.exe /k dir", vbNormalFocus)

この呼び出しは、SendKeysを操作せずに、cmdでdirコマンドを実行します。