Question

如何用vbs返回cmd命令行内容？

我要在cmd命令中输入路径（如e:/test），然后返回这个路径到VBS脚本中，之后在根据路径执行VBS脚本。
如何返回cmd命令行内容呢？

Answer 1

Dim cmdtext

Set oShell = CreateObject("WScript.Shell")

Set oExec = oShell.Exec("%COMSPEC% /C cd e:\testecho success!")

Do While Not oExec.StdOut.AtEndOfStream

    cmdtext = oExec.StdOut.ReadAll()

Loop

msgbox cmdtext