COMANDOS MULTIPLES - VB

[rochro]

Hola a todos. Estoy intentando correr el cmd a través de un formulario pero no puedo realizar lo de comandos multiples.

Código (vbnet) [Seleccionar] Expandir

If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then

           Dim archivo = My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
           For Each file As String In archivo
               'Dim archivo = My.Computer.FileSystem.GetFileInfo(File)

               Dim comando As String
               Dim cmdir As String
               cmdir = "cd " & midirectorio
               comando = "runpkr00.exe -d " & file & ".t01"
               Shell("cmd.exe /k" + cmdir + comando)  
           next
end if

como resultado me da:

El nombre de archivo, el nombre de directorio o la sintaxis de la etiqueta del volumen no son correctos.
C:\Users\rchaconr\Documents\Visual Studio 2013\Projects\CONVERSOR DATOS GPS\CONV
ERSOR DATOS GPS\bin\Debug>

y lo que deseo es que se ejecute

> cd midirectorio
c:\midirectorio>runpkr00.exe -d archivo.t01



Espero que me puedan entender y tener un poco de su ayuda. Muchas gracias

[El Benjo]

Los nombres de los archivos que te devuelve las función que los lista te da la ruta completa del archivo, no solamente el nombre. Puede ser que tu error está ahí. Para resolverlo elimina el directorio raíz del nombre del archivo.

[rochro]

Los nombres de los archivos que te devuelve las función que los lista te da la ruta completa del archivo, no solamente el nombre. Puede ser que tu error está ahí. Para resolverlo elimina el directorio raíz del nombre del archivo.

si coloco

Shell("cmd.exe /k" & cmdir)   

ejecuta normal, pero hasta ahí noma. Lo que quiero es que además de ejecutar ese comando también se ejecute el otro en la misma consola.

[El Benjo]

Ah, ok, ya te entendí. 

Para eso debes poner:

Código (vbnet) [Seleccionar] Expandir

Shell("cmd.exe /k" + cmdir + " & " + comando)

El símbolo "&" hasta donde yo sé, se utiliza para separar comandos en la consola de windows. Dinos si te funciona.

[rochro]

Ah, ok, ya te entendí.  

Para eso debes poner:

Código (vbnet) [Seleccionar] Expandir

Shell("cmd.exe /k" + cmdir + " & " + comando)

El símbolo "&" hasta donde yo sé, se utiliza para separar comandos en la consola de windows. Dinos si te funciona.

Si me corre pero solo me ejecuta el comando "cmdir" mas no el de "comando". ¿Que puede estar mal?

En si todo el codigo que tengo para el comand es:

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim midirectorio As String = TextBox1.Text

        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else

            Try

                My.Computer.FileSystem.CopyFile(
                 "C:\Program Files\convert data\runpkr00.exe",
                 midirectorio & "\runpkr00.exe",
                Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                 Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            Catch ex As Exception
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)

            End Try
        End If


        If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then

            For Each archivo In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")

                Dim comando As String
                Dim cmdir As String
                Dim nombre As String
                nombre = My.Computer.FileSystem.GetName(archivo)
                cmdir = "cd " & midirectorio
                comando = "runpkr00.exe -d " & nombre & ".t01"
                Shell("cmd.exe /k" + cmdir + " & " + comando)

            Next
         
        End If



    End Sub

[El Benjo]

Mmmmmm, no sé en qué esté fallando, pero lo más seguro es que sea en la forma en que se construye la cadena.

Intenta poniendo un punto de interrupción y copia toda la cadena como debería salir al final. Luego escribe esa cadena en una consola de comandos y ve si también te da error. si es así entonces no es problema de programación sino de la construcción de la cadena.

[engel lex]

no te sirve mas crear una tubería (pipe) como el ejemplo de esta pagina?

http://www.vbforums.com/showthread.php?381405-Automate-Command-Prompt-Window-(CMD)-Redirect-Output-to-Application-2003-2005

[El Benjo]

Lex, no conocía la existencia de los métodos para redirigir la salida y la entrada de las aplicaciones.

Rochro, el método que menciona Lex te permite enviar los comandos uno a uno sin necesidad de abrir múltiples ventanas. Esta sería una opción mejor.

[rochro]

Lex, no conocía la existencia de los métodos para redirigir la salida y la entrada de las aplicaciones.

Rochro, el método que menciona Lex te permite enviar los comandos uno a uno sin necesidad de abrir múltiples ventanas. Esta sería una opción mejor.

Chicos! Muchas gracias, ya lo adapté pero hay algo que no me sale que es que si tengo en mi directorio mas de un archivo sólo lo aplica con uno y no con todos los que están en ese directorio.

Código (vbnet) [Seleccionar] Expandir

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim midirectorio As String = TextBox1.Text

       If midirectorio = "" Then
           MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
       Else

           Try

               My.Computer.FileSystem.CopyFile(
                "C:\Program Files\convert data\runpkr00.exe",
                midirectorio & "\runpkr00.exe",
               Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
           Catch ex As Exception
               MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)

           End Try
       End If

       If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then
           Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
           CMDThread.Start()
       End If

   End Sub
   Private Sub CMDAutomate()
       Dim midirectorio As String = TextBox1.Text
       Dim myprocess As New Process
       Dim StartInfo As New System.Diagnostics.ProcessStartInfo
       StartInfo.FileName = "cmd"
       StartInfo.RedirectStandardInput = True
       StartInfo.RedirectStandardOutput = True
       StartInfo.UseShellExecute = False
       StartInfo.CreateNoWindow = True
       myprocess.StartInfo = StartInfo
       myprocess.Start()
       For Each archivo As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
           Dim SR As System.IO.StreamReader = myprocess.StandardOutput
           Dim SW As System.IO.StreamWriter = myprocess.StandardInput
           Dim comando As String
           Dim cmdir As String
           Dim nombre As String
           nombre = My.Computer.FileSystem.GetName(archivo)
           cmdir = "cd " & midirectorio
           comando = "runpkr00.exe -d " & nombre

           SW.WriteLine(cmdir)
           SW.WriteLine(comando)
           Results = SR.ReadToEnd
           SW.Close()
           SR.Close()
           Invoke(Finished)
       Next
   End Sub

[El Benjo]

No estoy seguro pero creo que tu problema puede estar en:

Código (vbnet) [Seleccionar] Expandir

Invoke(Finished)

Si lo que quieres es que el método se invoke con cada archivo entonces está bien. Pero si lo que quieres es que se invoque al final de todo el procedimiento entonces deberías ponerlo después del "next".

Tampoco creo que haya necesidad de cerrar los streams en cada iteración por lo tanto también deberías provar dejando el código como sigue:

Código (vbnet) [Seleccionar] Expandir

Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput
Dim comando As String
Dim cmdir As String
Dim nombre As String
        For Each archivo As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
            nombre = My.Computer.FileSystem.GetName(archivo)
            cmdir = "cd " & midirectorio
            comando = "runpkr00.exe -d " & nombre

            SW.WriteLine(cmdir)
            SW.WriteLine(comando)
            Results = SR.ReadToEnd
            Invoke(Finished)
        Next
        SW.Close()
        SR.Close()
    End Sub

Para dejar más limpio el bucle.