command-line - パラメータ付きのVB6シェル

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 を使用します。