Problemas con Process

"Carlos" wrote in message
news:%

[...] ¿alguien me puede explicar lo que hace el siguiente comando?:

cmd.Exited += New EventHandler(cmd_Exited)

Lo que hace es conectar la subrutina cmd_Exited con el evento Exited
del objeto cmd.

¿y para hacer esto mismo en VB?

Hay un par de formas de conseguirlo.

Una es usar la sentencia AddHandler:
AddHandler cmd.Exited, AddressOf cmd_Exited

La otra forma es omitir por completo esa sentencia, declarar cmd con
WithEvents y poner Handles en la definición de la rutina:

Dim WithEvents cmd As System.Diagnostics.Process


Sub cmd_Exited(sender as Objects, e as EventArgs) Handles cmd.Exited

End Sub


En ambos casos lo que se consigue es que se ejecute automáticamente la
subrutina cmd_Exited cuando termina de ejecutarse el proceso que has
arrancado con Process.Start.

He hecho en VB:

Dim miProceso As New Process

' Ejecutar el comando y redireccionar la salida

' a un fichero .

miProceso.EnableRaisingEvents = True

miProceso.StartInfo.WorkingDirectory = "C:\Archivos de Programa\MySQL\MySQL
server 5.0\bin\"

miProceso.StartInfo.FileName = "mysqldump.exe"

miProceso.StartInfo.Arguments = " --opt da -u Usuario1 "

miProceso.Start()

miProceso.WaitForExit(10000)



Y me ejecuta el comando dando el resultado en una ventana de MS-DOS.

Pero si intento redireccionar la salida a una variable string como en el
ejemplo que os mostre:



Dim miProceso As New Process

' Ejecutar el comando y redireccionar la salida

' a un fichero .

miProceso.EnableRaisingEvents = True



miProceso.StartInfo.RedirectStandardOutput = True

miProceso.StartInfo.UseShellExecute = False



miProceso.StartInfo.WorkingDirectory = "C:\Archivos de Programa\MySQL\MySQL
server 5.0\bin\"

miProceso.StartInfo.FileName = "mysqldump.exe"

miProceso.StartInfo.Arguments = " --opt da -u Usuario1 -p""Mandarina100"" "

miProceso.Start()



Dim myString As String = miProceso.StandardOutput.ReadToEnd

miProceso.WaitForExit(10000)

MsgBox(myString)



Me da el error:

"El sistema no puede hallar el archivo especificado"

No entiendo nada ¿alguien sabe lo que pasa?

He encontrado el fallo, parece ser que al hacer

miProceso.StartInfo.UseShellExecute = False

el comando miProceso.StartInfo.WorkingDirectory ya no funciona y hay que
decirle en el miProceso.StartInfo.FileName el path donde se encuentra el
fichero.




"Carlos" escribió en el mensaje
news:

He hecho en VB:

Dim miProceso As New Process

' Ejecutar el comando y redireccionar la salida

' a un fichero .

miProceso.EnableRaisingEvents = True

miProceso.StartInfo.WorkingDirectory = "C:\Archivos de
Programa\MySQL\MySQL server 5.0\bin\"

miProceso.StartInfo.FileName = "mysqldump.exe"

miProceso.StartInfo.Arguments = " --opt da -u Usuario1 "

miProceso.Start()

miProceso.WaitForExit(10000)



Y me ejecuta el comando dando el resultado en una ventana de MS-DOS.

Pero si intento redireccionar la salida a una variable string como en el
ejemplo que os mostre:



Dim miProceso As New Process

' Ejecutar el comando y redireccionar la salida

' a un fichero .

miProceso.EnableRaisingEvents = True



miProceso.StartInfo.RedirectStandardOutput = True

miProceso.StartInfo.UseShellExecute = False



miProceso.StartInfo.WorkingDirectory = "C:\Archivos de
Programa\MySQL\MySQL server 5.0\bin\"

miProceso.StartInfo.FileName = "mysqldump.exe"

miProceso.StartInfo.Arguments = " --opt da -u Usuario1 -p""Mandarina100""
"

miProceso.Start()



Dim myString As String = miProceso.StandardOutput.ReadToEnd

miProceso.WaitForExit(10000)

MsgBox(myString)



Me da el error:

"El sistema no puede hallar el archivo especificado"

No entiendo nada ¿alguien sabe lo que pasa?