設定與擷取程式的結束碼(Exit Code)

Q: 我希望在Workflow中執行外部程式, 如果成功, 則繼續執行另一個外部程式, 否則就將錯誤代碼寫入log. 首先需要設定與擷取外部程式的結束碼(Exit Code) , 程式該怎麼作呢?

A: 分成兩部分解釋:
1. 設定程式的結束碼
Sub Main()
Environment.ExitCode = 99
End Sub
2. 擷取外部程式的結束碼
Dim filename As String = "H:\TestExitCode.exe"
Dim pInfo As ProcessStartInfo = New ProcessStartInfo(filename)
pInfo.WindowStyle = ProcessWindowStyle.Normal
pInfo.WorkingDirectory = Environment.CurrentDirectory
Dim p As Process = Process.Start(pInfo)
p.WaitForExit()
mExitCode = p.ExitCode