shellexecute 执行完成_vb.net shell线程执行完成后再运行以后处理 函数

Public Shared Function ExecuteCmd(ByVal cmd As String) As String

Dim startInfo As New ProcessStartInfo("cmd.exe")

With startInfo

.Arguments = "/C " + cmd

.RedirectStandardError = True

.RedirectStandardOutput = True

.UseShellExecute = False

.CreateNoWindow = True

.WindowStyle = ProcessWindowStyle.Hidden

End With

Dim p As Process = Process.Start(startInfo)

Dim strOutput As String = p.StandardOutput.ReadToEnd()

Dim strError As String = p.StandardError.ReadToEnd()

p.WaitForExit()

If (strOutput.Length <> 0) Then

Return strOutput

ElseIf (strError.Length <> 0) Then

Return strError

End If

Return "" End Function