Private Sub AggiornaPgm()
Dim ws_file As String = "FilmDB_Update.exe"
Dim ws_proc_param As String = """" + ws_working_path + """ " + ws_temp_path
Dim ws_fullPath As String = Path.Combine(ws_temp_path, ws_file)
If File.Exists(ws_fullPath) Then
File.Copy(ws_fullPath, ws_file, True)
End If
Dim proc As New System.Diagnostics.Process()
proc = Process.Start(ws_file, ws_proc_param)
End Sub
我想尝试使用shell命令,但是无法将参数传递给被调用的程序。 你们还有其他想法吗? 谢谢
马塞洛(Marcello)
按照艾哈迈德(Ahmed)的建议,我在调用的程序中添加了对调用过程的测试。
p = Process.GetProcessesByName(ws_calling_pgm)
While p.Count > 0
Threading.Thread.Sleep(3000)
p = Process.GetProcessesByName(ws_calling_pgm)
End While
p = Nothing
当我退出While循环时,调用过程终止。我不明白为什么尽管不再存在该过程,但仍在使用主程序。