batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ

batからexeを実行し戻り値を受け取る

バッチからEXEの結果を受け取りたいのですが、
下記のバッチを実行したところ、
バッチ側でエラーレベルが
成功したときも失敗したときも0で帰ってきました。
どこが誤っているかご指摘お願いします。
EXEはVB6.0です。


【バッチ】
@ehco off

Project.exe
echo %errorlevel%

↓↓↓project.exe

【フォーム】
private sub form_load()
'ファイルの存在を確認する
Dim fso As FileSystemObject
Set fso = New FileSystemObject
'ファイルの存在を確認する
If fso.FileExists("C:\Hoge.txt") Then
Call MsgBox("ファイルはあります")
Else
Call MsgBox("ファイルはありません")
End If

【標準モジュール】
Public Declare Sub ExitProcess Lib "kernel32"(ByVal uExitCode As Long)
Public Sub Main()

Dim filePath As String
filePath = Split(Command)(0)

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(filePath) Then
ExitProcess 0
Else
ExitProcess -1
End If
End Sub

No.1 回答者： trajaa 回答日時： 2023/07/04 15:15

exeの実行結果ではなく

exe起動に成功したという結果ですからね
受け取っているのは

この回答へのお礼

実行結果を受け取るには
どのように書き変えればよろしいでしょうか？

お礼日時：2023/07/04 15:18