为什么下面的代码不会在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，但不会在其中打印dir或完全执行dir。

Answer 1

你为什么不打电话：

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

此调用将为您执行cmd中的dir命令，而不使用SendKeys。