Сохранить результаты выполнения cmd в файл

 Process.Start("cmd", "/k" & sdk)

p.StartInfo.Arguments = "-v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 """ & Inputic & """"

Private Sub myProc()
        'Dim Inputic As String = "C:\tmp\V.mp3"
        '[[[[
        Dim process As New System.Diagnostics.Process()
        With process.StartInfo
            .FileName = "ffprobe"
            .Arguments ="-v error -select_streams v: 0 -show_entries stream=width,height -of default=nw=1 " & Inputic & """"
            .RedirectStandardOutput = True
            .RedirectStandardError = True
            .RedirectStandardInput = True
            .UseShellExecute = False
            .WindowStyle = ProcessWindowStyle.Normal
            .CreateNoWindow = False
        End With
        process.Start()
        Dim thr As IO.StreamReader = process.StandardOutput
        Do Until thr.EndOfStream
            st &= thr.ReadLine() & vbCrLf
            '      Dim reader As StreamReader = process.StandardOutput
        Loop
 
        'В переменной st содержится ответ, можно записать файл.
        IO.File.WriteAllText("E:\1.txt", st)
        ' Dim output As String
        ' output = reader.ReadToEnd()
        'process.WaitForExit()
        process.WaitForExit()
        process. Close()
    End Sub

  Private Sub myProc()
 
        'Dim Inputic As String = "C:\tmp\V.mp3"
        Dim proc As New Process
        proc.StartInfo.FileName = "ffprobe"
        proc.StartInfo.Arguments = "-v error -show_entries stream=width,height,bit_rate,duration """ & Inputic & """"
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.Start()
        Application.DoEvents()
        Dim thr As IO.StreamReader = proc.StandardOutput, st As String = ""
        st = thr.ReadLine() & vbCrLf
        Do Until thr.EndOfStream
            st &= thr.ReadLine() & vbCrLf
        Loop
        proc.WaitForExit()
        proc.Close()
        'В переменной st содержится ответ, можно записать файл.
        '    IO.File.WriteAllText("1.txt", st)
        MsgBox(st)
 
    End Sub

Public Class Form1
 
    Dim nfg, nmd, sdf, output, st As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Inputic = ""
        With OpenFileDialog1
            .InitialDirectory = nmd
            .RestoreDirectory = True
            .FileName = ""
            .Filter = "VideoFiles|*.avi| (*.mkv*)|*.mkv| (*.mp4)|*.mp4|HTM files (*.htm)|*.htm"
            .FilterIndex = 1
            '.Multiselect = True
            .Title = "Select Open Video Files"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            sdf = OpenFileDialog1.FileName
            Inputic = """" & sdf
            nfg = IO.Path.ChangeExtension(sdf, Nothing) & ".avi"
            '   output = """" & nfg
            ' myProc()
            'Dim Inputic As String = "C:\tmp\V.mp3"
            Dim proc As New Process
            proc.StartInfo.FileName = "ffprobe"
            proc.StartInfo.Arguments = "-v error -show_entries stream=width,height,bit_rate,duration """ & Inputic & """"
            proc.StartInfo.CreateNoWindow = True
            proc.StartInfo.RedirectStandardOutput = True
            proc.StartInfo.UseShellExecute = False
            proc.Start()
            Application.DoEvents()
            Dim thr As IO.StreamReader = proc.StandardOutput, st As String = ""
            st = thr.ReadLine() & vbCrLf
            Do Until thr.EndOfStream
                st &= thr.ReadLine() & vbCrLf
            Loop
            proc.WaitForExit()
            proc.Close()
            'В переменной st содержится ответ, можно записать файл.
            '    IO.File.WriteAllText("1.txt", st)
            MsgBox(st)
            '   Dim sdk = " ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 " & Inputic & """"
            '  Process.Start("cmd", "/k" & sdk).WaitForExit()
        End If
    End Sub
 
    '[[[[[[[[[
    Private Sub myProc()
 
 
 
    End Sub
 
 
End Class

Inputic = sdf

 Dim sdk = " ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 " & Inputic & """"
            Process.Start("cmd", "/k" & sdk).WaitForExit()

">> E:\text.txt"