为什么下面的代码不会在 CMD 窗口中触发目录调用？

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但根本不打印dir或执行dir。

Answer 1

你为什么不简单地调用：

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

此调用将在 cmd 中为您执行 dir 命令，而无需使用发送键。