VB.NET

Console Output

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

View Poll Results: Why No Example Given For real Time Console Redirect
Microsoft my not be interested	1	100.00%
It may be under Developement	0	0%
It is avaliable, But not aware	0	0%
No Idea	0	0%
Voters: 1. You may not vote on this poll

•

Join Date: Apr 2007

Posts: 3

Reputation: danasegarane is an unknown quantity at this point

Solved Threads: 0

danasegarane danasegarane is offline

Offline

Newbie Poster

Console Output

Sep 7th, 2007

Hi all,
I want to redirect the console output in real time to a textbox. And if any standard error arrives or Process completed than i have to give one msgbox stating that process completed.Is there any method avalible.Presently I have this code.But it is not working properly

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Text = String.Empty
        Dim clsProcess As New System.Diagnostics.Process()
        clsProcess.StartInfo.UseShellExecute = False
        clsProcess.StartInfo.RedirectStandardOutput = True
        clsProcess.StartInfo.RedirectStandardError = True
        clsProcess.StartInfo.FileName = "cmd dir/s"
        clsProcess.StartInfo.CreateNoWindow = True
        clsProcess.Start()
        While (clsProcess.HasExited = False)
            Dim sLine As String = clsProcess.StandardOutput.ReadLine
            If (Not String.IsNullOrEmpty(sLine)) Then
                Me.TextBox1.Text &= sLine & vbCrLf
            End If
            Application.DoEvents()
        End While
        Me.TextBox1.Text += "Completed"
    End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Text = String.Empty
        Dim clsProcess As New System.Diagnostics.Process()
        clsProcess.StartInfo.UseShellExecute = False
        clsProcess.StartInfo.RedirectStandardOutput = True
        clsProcess.StartInfo.RedirectStandardError = True
        clsProcess.StartInfo.FileName = "cmd dir/s"
        clsProcess.StartInfo.CreateNoWindow = True
        clsProcess.Start()
        While (clsProcess.HasExited = False)
            Dim sLine As String = clsProcess.StandardOutput.ReadLine
            If (Not String.IsNullOrEmpty(sLine)) Then
                Me.TextBox1.Text &= sLine & vbCrLf
            End If
            Application.DoEvents()
        End While
        Me.TextBox1.Text += "Completed"
    End Sub

Thanks in Advance
Dana

Last edited by danasegarane; Sep 7th, 2007 at 7:15 am.

•

Join Date: Sep 2007

Posts: 1

Reputation: whenwephil is an unknown quantity at this point

Solved Threads: 0

whenwephil whenwephil is offline

Offline

Newbie Poster

Re: Console Output

Sep 13th, 2007

Hi

Your code is almost there. All that is required is to break apart the filename and add arguments. See below

p

Dim clsProcess As New System.Diagnostics.Process()
clsProcess.StartInfo.UseShellExecute = False
clsProcess.StartInfo.RedirectStandardOutput = True
clsProcess.StartInfo.RedirectStandardError = True
clsProcess.StartInfo.FileName = "cmd.exe"
clsProcess.StartInfo.Arguments = "dir /s"
clsProcess.StartInfo.CreateNoWindow = True
clsProcess.Start()
While (clsProcess.HasExited = False)
Dim sLine As String = clsProcess.StandardOutput.ReadLine
If (Not String.IsNullOrEmpty(sLine)) Then

End If
Me.TextBox1.Text &= sLine & vbCrLf

Application.DoEvents()
End While
Me.TextBox1.Text += "Completed"