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

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

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

    Dim sdk As String = " ping ya.ru"
        Dim Path As String = "D:\Log.txt"
        Process.Start("cmd", "/k" & sdk & " > " & Path)

 Dim sdk As String = " ping ya.ru"
        Dim p As New Process
        p.StartInfo.StandardOutputEncoding = System.Text.Encoding.GetEncoding(866)
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.FileName = "cmd.exe"
        p.StartInfo.Arguments = sdk
        p.StartInfo.CreateNoWindow = True
 
        p.Start()
        Dim output As String = p.StandardOutput.ReadToEnd()
 
        IO.File.WriteAllText("1.txt", output, System.Text.Encoding.Default)
        p.WaitForExit()
        RichTextBox1.Text = output

& " > " & Path

Dim sdk = "ffprobe -v error -show_entries stream=width,height,bit_rate,duration " & Inputic
                      Process.Start("cmd", "/k" & sdk)

    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

 Do Until thr.EndOfStream
            st &= thr.ReadLine() & vbCrLf
        Loop

   Dim p = New Process()
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardInput = True
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.FileName = "ffprobe"
        p.StartInfo.Arguments = " ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 " & Inputic & """"
        p.Start()
 
        '// Подаём что нужно на вход
        '//
        p.StandardInput.WriteLine("Продолжительность")
 
        '// Читаем ответ
        '//
        MsgBox(p.StandardOutput.ReadToEnd())
 
        '// Ждём пока доработает
        p.WaitForExit()