В.Б MsgBox после завершения процесса

Question

Я бегу пакетный файл с функцией оболочки в VB2010 с помощью следующей команды

Shell("C:\test.bat", AppWinStyle.NormalFocus) 

Этот процесс занимает много времени, чтобы закончить, даже может занять день, чтобы закончить в зависимости на входном файле.

Я хочу, чтобы MsgBox отображал сообщение «Job Законченное», когда процесс завершен. что-то вроде

MsgBox("Job Finished") 

Как я могу это сделать. Я очень новичок в VB, поэтому, пожалуйста, помогите мне с полным кодом. Спасибо

Answer 1

Это будет в основном ждать, пока процесс закончится (Она заканчивается на выходе. Как большинство пакетных файлов делать. Я только сделать предположение, хотя).

Sub Main() 
      Dim P As New Process 
      P.StartInfo.FileName = "C:\test.bat" 
      Try 
       P.Start() 
       P.WaitForExit() 
       MsgBox("Process completed successfully") 
      Catch ex As Exception 
       MsgBox("Error:" & ex.Message) 
      End Try 
     End Sub