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

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

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.

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:

    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

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

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.

   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