主题：VB.NET如何转狐表？

 Public Shared Sub RunCMD(ByVal workingDirectory As String, ByVal command As String)

            Dim p As Process = New Process()

            p.StartInfo.FileName = "cmd.exe"

            p.StartInfo.WorkingDirectory = workingDirectory

            p.StartInfo.UseShellExecute = False

            p.StartInfo.RedirectStandardInput = True

            p.StartInfo.RedirectStandardOutput = True

            p.StartInfo.RedirectStandardError = True

            p.StartInfo.CreateNoWindow = True

            p.Start()

            p.StandardInput.WriteLine(command)

            p.StandardInput.WriteLine("exit")

        End Sub