(SOLUCIONADO) Mostrar el output de la CMD

[Eleкtro]

Hola,

Tengo una pregunta antes de la verdadera pregunta xD

¿Que control es el más adecuado para mostrar el output de la CMD?  (Estoy usando un richtextbox)

Y bueno, el problema es que no consigo que el texto cambie antes d emostrar el output:

Código (vbnet) [Seleccionar] Expandir

Me.consolebox.Text = "Deleting the attributes of the files..."

Todo lo demás funciona bien, pero no consigo mostrar ese string, se queda el richtextbox vacío hasta que finaliza el búcle...

Código (vbnet) [Seleccionar] Expandir

  Private Function attrib() As Boolean
       Me.consolebox.Text = "Deleting the attributes of the files..."
       Dim attrib_process As New Process()
       Dim attrib_startinfo As New ProcessStartInfo()
       Dim attrib_args As String = videofolder
       attrib_startinfo.FileName = "cmd.exe "
       attrib_startinfo.UseShellExecute = False
       attrib_startinfo.CreateNoWindow = True
       attrib_startinfo.Arguments = "/C PUSHD " & ControlChars.Quote & videofolder & ControlChars.Quote & " & Attrib -A -R -S -H -I /S *.* & attrib +H /S *.ico >nul & attrib +H -R /S *.ini >nul"
       attrib_startinfo.RedirectStandardOutput = True
       attrib_process.EnableRaisingEvents = True
       attrib_process.StartInfo = attrib_startinfo
       attrib_process.Start()
       Dim readerStdOut As IO.StreamReader = attrib_process.StandardOutput
       Do While readerStdOut.EndOfStream = False
           output = output + readerStdOut.ReadLine()
       Loop
       Me.consolebox.Text = "This is the result of the command:" + output
   End Function

¿Y si necesito usar un comando de múltiples líneas como le hago?

por ejemplo:

Código (vbnet) [Seleccionar] Expandir

attrib_startinfo.Arguments = "/C
Echo linea 1 &
(Echo linea2
Echo linea 3)
"

[Keyen Night]

Los bucles dejan la UI colgada, puedes usar Application.DoEvents dentro del bucle o un Me.Refresh antes de comenzar el bucle, no es la forma correcta pero para este caso esta bien. Environment.NewLine, representa el carácter de nueva linea.

Esos comandos de consola se puede llevar fácilmente a código con ayuda de IO.File, claro es solo una aclaración porque no se si necesitas a juro hacerlo en consola

[Eleкtro]

Gracias Keyen,
La verdad es que el comando attrib es solo es el ejemplo con el que estoy practicando para darle uso a esta función más tarde, porque lo que si necesitaré usar son utilidades de terceros como "Mediainfo.exe" y quiero mostrar el output de ese programa en cuestión.

Ya lo he solucionado usando "appendText":

Código (vbnet) [Seleccionar] Expandir

   Private Function attrib() As Boolean
       consolebox.AppendText(vbNewLine + "[+] Deleting the attributes of the files..." + vbNewLine + vbNewLine)
       Dim attrib_process As New Process()
       Dim attrib_startinfo As New ProcessStartInfo()
       Dim attrib_args As String = videofolder
       attrib_startinfo.FileName = "cmd.exe "
       attrib_startinfo.UseShellExecute = False
       attrib_startinfo.CreateNoWindow = True
       attrib_startinfo.Arguments = "/C dir /B /AD C:\"
       attrib_startinfo.RedirectStandardOutput = True
       attrib_process.EnableRaisingEvents = True
       attrib_process.StartInfo = attrib_startinfo
       attrib_process.Start()
       Dim readerStdOut As IO.StreamReader = attrib_process.StandardOutput
       Do While readerStdOut.EndOfStream = False
           consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
           consolebox.SelectionStart = consolebox.Text.Length
           consolebox.ScrollToCaret()
       Loop
       consolebox.AppendText(vbNewLine + "[OK] attributes deleted!" + vbNewLine + vbNewLine)
   End Function

Saludos