Results = SR.ReadToEnd

Try
            For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.T01")
 
                nombre = My.Computer.FileSystem.GetName(file)
                cmdir = "cd " & midirectorio
                comando = "runpkr00.exe -d -s " & nombre
                SW.WriteLine(cmdir)
                SW.WriteLine(comando)
                Results = SR.ReadToEnd
                'SW.Close()
                'SR.Close()
                Invoke(Finished)
            Next
            Catch e As Exception
        End Try
        SW.Close()
        SR.Close()

'Results = SR.ReadToEnd
            'SW.Close()
            'SR.Close()
            'Invoke(Finished)

Imports System
Imports System.IO
Imports System.IO.StreamWriter
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Results As String
    Private Delegate Sub delUpdate()
    Private Finished As New delUpdate(AddressOf UpdateText)
 
  Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
        Dim Dir As New FolderBrowserDialog
        If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = Dir.SelectedPath
        End If
    End Sub
 
    Private Sub btndat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndat.Click
        Dim midirectorio As String = TextBox1.Text
        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else
            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\runpkr00.exe", midirectorio & "\runpkr00.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End If
        CMDThread.Start()
 
    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()
        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 file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.T01")
 
            nombre = My.Computer.FileSystem.GetName(file)
            cmdir = "cd " & midirectorio
            comando = "runpkr00.exe -d -s " & nombre
            SW.WriteLine(cmdir)
            SW.WriteLine(comando)
            'Results = SR.ReadToEnd
            'SW.Close()
            'SR.Close()
            'Invoke(Finished)
        Next
 
        SW.Close()
        SR.Close()
 
    End Sub
 
   Private Sub UpdateText()
        Dim midirectorio As String = TextBox1.Text
        Dim strStreamW As Stream = Nothing
        Dim strStreamWriter As StreamWriter = Nothing
        Dim fecha As String = DateTime.Now.ToString("dd MMM HHmmss") & ".txt"
        Windows.Forms.Cursor.Current = Cursors.WaitCursor
        Dim rutarchivo As String = String.Concat(midirectorio, "log-", fecha)
        strStreamW = File.Create(rutarchivo)
        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)
        strStreamWriter.WriteLine(Results)
        strStreamWriter.Close()
    End Sub