VB Dialog Box against Errors

Question

Hi,
I am running a command file under click event of a button.
Batch file look like:
  @echo off
   first command to test
   if ERRORLEVEL 1 (
       echo/first command failed
       goto:EOF
 ....... rest of the work ......
Is there a way to show dialog box or similar on VB form instead echo in command prompt (also, I am hiding the command window and if it echos the error, it will not be visible that's why looking for more user friendly option ... if available).
N.A.Malik

Answer 1

Hi,
 You can redirect the output stream of the Process that you use to run the batch file so that you can receive all the output in your application.  Then just filter the output to see if one of the lines of text contains the word "failed". 
If it does then show a MessageBox.
Public Class Form1
Private WithEvents proc As Process
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RunBatchFile("C:\TestFolder\MyBatchFile.bat")
End Sub
Private Sub RunBatchFile(ByVal batchfile As String)
If proc Is Nothing OrElse proc.HasExited Then
proc = New Process
With proc.StartInfo
.FileName = batchfile
.CreateNoWindow = True
.UseShellExecute = False
.RedirectStandardOutput = True
End With
proc.Start()
proc.BeginOutputReadLine()
End If
End Sub
Private Sub proc_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles proc.OutputDataReceived
If e.Data <> Nothing Then
Invoke(New OutputRecievedDel(AddressOf OutputRecieved), e.Data)
End If
End Sub
Private Delegate Sub OutputRecievedDel(ByVal out As String)
Private Sub OutputRecieved(ByVal out As String)
If out.ToLower.Contains("failed") Then 'filter the received cmd window`s output stream for the word "failed"
MessageBox.Show(out) 'show the error message line in a MessageBox
End If
End Sub
End Class
 If you only have one Batch file and you only want to monitor the "fail" messages and show a MessageBox then you could re-arrange the code more like this.
Public Class Form1
Private WithEvents proc As Process
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If proc Is Nothing OrElse proc.HasExited Then
proc = New Process
With proc.StartInfo
.FileName = "C:\TestFolder\MyBatchFile.bat"
.CreateNoWindow = True
.UseShellExecute = False
.RedirectStandardOutput = True
End With
proc.Start()
proc.BeginOutputReadLine()
End If
End Sub
Private Sub proc_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles proc.OutputDataReceived
If e.Data <> Nothing AndAlso e.Data.ToLower.Contains("failed") Then
MessageBox.Show(e.Data)
End If
End Sub
End Class
If you say it can`t be done then i`ll try it
Thanks For reply.
I believe we are close to find a solution, ... your code checks for "Failed" ... I want to get a specific message if command 1 failed .... and show a different message if 2nd command failed for example.
N.A.Malik