VB 2005 - Ejecutar .exe

[Laufwerk]

Hola amigos!!!
quiero ejecutar un exe desde mi aplicación y he encontrado el comando Shell, pero por lo que veo este devuelve un entero y lo que quiero es mostrar el log de lo que hace dicha aplicación que abro.


Me podeis hechar un cable?



Gracias

[Peterpay]

Usa el objeto Process

y ese te regresa el output de tu aplicacion.

[Laufwerk]

y como lo muestro luego?
tengo que ejecutar algo como

miarchivo.exe s 3 0 999 c:\ruta\archiv.extension


gracias por tu rapidez

[Peterpay]

Process miproceso = new Process();

miproceso.StartInfo.FileName = "MIARCHIVO.exe";
miproceso.UseShellExecute=false;
miproceso.StartInfo.Arguments = "s 3 0 999 c:\ruta\archiv.extension";
miproceso.StartInfo.RedirectStandardOutput = true;
miproceso.Start();
string output = miproceso.StandardOutput.ReadToEnd();


output tendra todo el resultado que arrojo tu aplicacion de consola.

[Laufwerk]

mil gracias de nuevo, aunque en vb no existen las mismas funciones, almenos he cogido la idea, espero que me vaya bien.

A continuacion te pongo las lineas de tu codigo que en VB no existen

miproceso.UseShellExecute=false;
miproceso.StartInfo.RedirectStandardOutput = true;

y después imagino que miproceso es una variable del tipo Process como notePad.

[Laufwerk]

sigo sin conseguirlo, ahora tengo este código:

Código:

        Console.WriteLine(Shell(My.Application.Info.DirectoryPath & "\drivers\wmplw.exe s 3 0 " & n & My.Application.Info.DirectoryPath & "\" & folderAscGen & My.Settings.nombreArchivo, AppWinStyle.MaximizedFocus, False, -1))

la cuestión es que quiero ejecutar este exe
wmplw.exe s 3 0 C:\path1\pathN\default.asc

y deseo mostrar el log de dicho archivo.


Gracias de nuevo

[mvazquez]

Hola tengo una duda...........

wmplw.exe s 3 0 C:\path1\pathN\default.asc

entiendo que wmplw.exe es un ejecutable
pero que es: s 3 0 C:\path1\pathN\default.asc

son parametros o que?

si son parametros ejecutalo asi:
System.Diagnostics.Process.Start(@"C:\Documents and Settings\" , "s", "3", "0", @"C:\path1\pathN\default.asc");

[Laufwerk]

si, son parametros.

Al final encontre este codigo

Código:

    Private Sub btEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnviar.Click
        Dim strArgumentos As String = "127.0.0.1"
        Dim strExe As String = "ping"


        'Console.WriteLine(Shell(My.Application.Info.DirectoryPath & "\drivers\wmplw.exe s 3 0 " & n & My.Application.Info.DirectoryPath & "\" & folderAscGen & My.Settings.nombreArchivo, AppWinStyle.MaximizedFocus, False, -1))
        'proceso.Start(My.Application.Info.DirectoryPath & "\drivers\wmplw.exe", " s 3 0 " & n & My.Application.Info.DirectoryPath & "\" & folderAscGen & My.Settings.nombreArchivo)

        'Armar el proceso a ejecutar
        Dim startInfo As ProcessStartInfo = New ProcessStartInfo(strExe, strArgumentos)

        'Para poder manupular la salida indicamos que no se ejecute el shell
        startInfo.UseShellExecute = False

        '(...)UseShellExecute debe ser true si se desea establecer ErrorDialog en true(...)
        startInfo.ErrorDialog = False

        'Sin ventana...
        startInfo.CreateNoWindow = True

        'Deseamos manipular la salida del proceso, para ello debemos establecer que se redirija la salida
        startInfo.RedirectStandardOutput = True

        Try
            Dim p As Diagnostics.Process = System.Diagnostics.Process.Start(startInfo)

            'Leemos la salida (objeto StreamReader)
            Dim sr As System.IO.StreamReader = p.StandardOutput
            Dim cadenaSalida As String = sr.ReadToEnd()
            sr.Close()

            'La visualizamos en el textbox. Un ejemplo basico ;)...
            My.Forms.FrmCaptura.txtbxCaptura.Text = cadenaSalida
            My.Forms.FrmCaptura.Show()
        Catch ex As Exception
            My.Forms.FrmCaptura.txtbxCaptura.Text = (ex.Message)
            My.Forms.FrmCaptura.Show()
        End Try
    End Sub