command-line - 带参数的VB6 Shell

Question

我可以打开命令行并输入

 devenv m:\myproject.sln /build Release

这很好用。

现在我想从 VB6 调用命令行并执行相同的命令。

但这不起作用。我不确定我是否错过了什么。

这是我的代码：

dim lRet&
lRet = Shell("cmd /k devenv m:\myproject.sln /build Release", 0)

命令行打开，但命令本身（“devenv m:\myproject.sln /build Release”）未执行。

有人知道为什么吗？

Answer 1

您不需要在SHELL命令中键入 CMD。试试这个：

dim lRet&
lRet = Shell("devenv m:\myproject.sln /build Release", 0)

Answer 2

Dim Parameter As String
Dim Res As Long
Dim Filename As String
    Filename = "C:\myfolder\myfile.exe" 'Check file is here first
If Dir(Filename) = "" Then
    MsgBox Filename & " not found with parameter " & Parameter, vbInformation
Else
    Res = Shell(Filename & " " & Parameter, vbHide)
End If

如果您期望返回值，请使用 Res = Shell(Filename & " " & Parameter, vbHide) 否则 Shell Filename & " " & Parameter, vbHide