如何在vb.net中使用命令行

我正在开发一个Windows应用程序，它将使用支持命令行的pdf2text pilot软件。在此应用程序中，用户需要指定pdf文件的位置。我能够打开cmd但无法将命令传递给它或者某种方式我的命令没有被执行。

I m developing a windows application that will use pdf2text pilot software which supports command line. In this application user needs to specify location of the pdf file. I m able to open cmd but could not pass commands to it or somehow my commands are not getting executed.

Imports System
Imports System.IO
Imports System.Diagnostics.Process
Imports System.Diagnostics.ProcessStartInfo

Public Class EDCS

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dlgrslt As DialogResult = OpenFileDialog1.ShowDialog()
        Dim fnames As String() = OpenFileDialog1.FileNames
        Dim txtfnames As String

        For i = 0 To fnames.Length - 1
            If TextBox1.Text = "" Then
                TextBox1.Text = fnames(i)
            Else
                TextBox1.Text = TextBox1.Text + " / " + fnames(i)
            End If
            txtfnames = fnames(i).Replace(".pdf", ".txt")
            File.Create(txtfnames).Dispose()

            Dim convertcommand As String = "textextract """ & fnames(i) & """ /to """ & txtfnames & """"
            
            '/c will exit cmd and /k will keep it open
            'Shell("cmd.exe /c textextract "C:\Users\user\Desktop\ Part 1.pdf" /to " C:\Users\user\Desktop\ Part 1.txt"")

            'SendKeys.Send(convertcommand)
            'SendKeys.Send("{ENTER}")
            
            Dim p As New Process
            p.StartInfo.FileName = "cmd.exe"
            'p.StartInfo.WorkingDirectory = "C:\Program Files (x86)\Two Pilots\PDF2Text Pilot"
            p.StartInfo.Arguments = "textextract "C:\Users\user\Desktop\ Part 1.pdf" /to " C:\Users\user\Desktop\ Part 1.txt""
            p.StartInfo.UseShellExecute() = False
            p.StartInfo.RedirectStandardInput = True
            p.StartInfo.RedirectStandardOutput = True
            p.Start()
            

            'Dim process As New Process()
            'process.StartInfo.FileName = "cmd.exe "
            'process.StartInfo.Verb = "runas"
            'process.StartInfo.UseShellExecute = False
            'process.StartInfo.RedirectStandardInput = True
            'process.StartInfo.RedirectStandardOutput = True
            'process.Start()

            'process.StandardInput.WriteLine("textextract "C:\Users\user\Desktop\ Part 1.pdf" /to " C:\Users\user\Desktop\ Part 1.txt"")
            'process.StandardInput.WriteLine("exit")
            'process.Close()

                  Next
    End Sub
End Class

操作系统：Windows 7

vb.net开发者



先谢谢

OS: Windows 7
vb.net developer

Thanks in Advance