在继续之前等待批处理文件关闭 - VB.net

Question

我正在尝试通过 VB 运行批处理文件，我需要等待它完成/退出才能继续。我相信我遇到的问题是，当执行批处理文件时，它会打开 cmd.exe 而不是批处理文件。

这就是我用 VB 执行的操作

        My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath & "\PingCheck\machines.txt")
    FileCopy(My.Application.Info.DirectoryPath & "\machines.txt", My.Application.Info.DirectoryPath & "\PingCheck\machines.txt")

    Dim psi As New ProcessStartInfo(My.Application.Info.DirectoryPath & "\PingCheck\go.bat")
    psi.RedirectStandardError = True
    psi.RedirectStandardOutput = True
    psi.CreateNoWindow = False
    psi.WindowStyle = ProcessWindowStyle.Hidden
    psi.UseShellExecute = False

    Dim process As Process = process.Start(psi)
    process.WaitForExit()

    ProgressBar1.Value = ProgressBar1.Value + 2
    FileCopy(My.Application.Info.DirectoryPath & "\PingCheck\machines.txt", My.Application.Info.DirectoryPath & "\machines.txt")
    'My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath & "\ping.bat")
    MsgBox("Ping Check Complete")

我遇到的问题是它只会在完成之前删除 ping.bat。
我如何从我调用的批处理文件中监视进程。然后一旦退出，继续执行脚本？

Answer 1

RHicke 在这里展示了如何在 VB.NET 中运行批处理的一个很好的示例，Run batch file in vb.net?。

要展开，你应该使用函数WaitForExit()来等待进程完成。

Dim psi As New ProcessStartInfo("Path TO Batch File")
psi.RedirectStandardError = True
psi.RedirectStandardOutput = True
psi.CreateNoWindow = False
psi.WindowStyle = ProcessWindowStyle.Hidden
psi.UseShellExecute = False

Dim process As Process = Process.Start(psi)

process.WaitForExit()

Answer 2

您可以使用System.Diagnostics.Process 类来启动批处理文件。流程参考将使您能够访问属性 HasExited（以及更多有趣的信息）。 HasExited 属性指示进程是否已完成。

var process = System.Diagnostics.Process.Start(new ProcessStartInfo
                                {
                                    FileName = "batch file path",
                                    RedirectStandardError = true,
                                    RedirectStandardOutput = true,
                                    UseShellExecute = false,
                                    Arguments = "parameters if applicable",
                                    CreateNoWindow = true
                                });

while(!process.HasExited)
{
    // obviously do some clever here to wait 
}    

代码在 C# 中，但原理应该在 VB.NET 中工作

Answer 3

我以前做过类似的事情。此代码使用 System.Diagnostics.Process（由 rivethead_ 提及）从 VB.Net 中调用 RoboCopy。

Dim proc As System.Diagnostics.Process = New System.Diagnostics.Process()

proc.EnableRaisingEvents = False
proc.StartInfo.FileName = "d:\robocopy\robocopy"
proc.StartInfo.Arguments = strSrcDir & " " & strDestDir & " " & strFile & " " & My.Settings.robocopyFlags
proc.Start()
proc.WaitForExit()

否则，ping.bat 在做什么？它只是在执行“ping”命令吗？如果是这样，也许您可​​以使用 System.Diagnostics.Process 调用它（而不是调用 .bat 文件来执行此操作）。这可能会让您更好地控制自己的流程。