Question

我正在尝试执行以下代码，但调试器在myProcess.WaitForExit()失败

Sub BtnNowClick(sender As Object, e As EventArgs)

    Dim myProcess As Process
    Dim processFile As String = dlgFolder.SelectedPath
    Dim pyLocationDel As String = Path.Combine(dlgFolder.SelectedPath, "pdfmerge.py")

    Directory.SetCurrentDirectory(dlgFolder.SelectedPath)

    myProcess.Start("pdfmerge.py") 
    myProcess.WaitForExit()     
    System.IO.File.Delete(pyLocationDel)


End Sub

基本上，我想要的是检测要完成的进程并在进程完成时删除特定文件。

尝试执行代码时出现此错误：

   System.NullReferenceException: Object reference not set to an instance of an object.
   at lgaPDF.MainForm.BtnNowClick(Object sender, EventArgs e) in C:\Documents and Settings\student3\My Documents\SharpDevelop Projects\lgaPDF\lgaPDF\MainForm.vb:line 184
   at System.Windows.Forms.Control.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnClick(EventArgs e)
   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ButtonBase.WndProc(Message& m)
   at System.Windows.Forms.Button.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   at lgaPDF.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81

Answer 1

Dim myProcess As NEW Process

myprocess仅被声明，从未实例化

Answer 2

试试这个：

Sub BtnNowClick(sender As Object, e As EventArgs)

    Dim processFile As String = dlgFolder.SelectedPath
    Dim pyLocationDel As String = Path.Combine(dlgFolder.SelectedPath, "pdfmerge.py")

    Directory.SetCurrentDirectory(dlgFolder.SelectedPath)

    Dim myProcess As Process = Process.Start("pdfmerge.py") 
    myProcess.WaitForExit()     
    System.IO.File.Delete(pyLocationDel)


End Sub

执行WaitForExit（）时运行时错误

2 个答案: