How to wait for command window to exit?

[Terry Olsen]

I have loop that calls a Sub that runs the following code:

Dim WinZip As System.Diagnost ics.Process
Dim args As String = " -Pru -ex " & lblFolder.Text & "\" & PCName &
".zip @""" & appPth & "WksBkup.tx t"""
WinZip.Start("c :\Program Files\WinZip\wz zip.exe", args)
WinZip.WaitForE xit()
Do
If WinZip.HasExite d = True Then Exit Do
Loop
MsgBox("suppose dly exited")

However, it does not wait, and the message box never appears. I get
several command windows running WinZip at simultaneously. The program
does not block, If I click the button again, I get even more
simultaneously running command windows. But I can't get the program to
wait or even show me the messagebox.

Any ideas?

*** Sent via Developersdex http://www.developersdex.com ***

[Ken Tucker [MVP]]

Hi,

I prefer to use a processstartinf o for starting an application
with arguments.

http://msdn.microsoft.com/library/de...classtopic.asp

Second Add application.doe vents to your loop so it can finish it the
winzip.hasexite d is not true when run the first time.

Do
If WinZip.HasExite d = True Then Exit Do
Application.DoE vents
Loop

Ken
-------------------
"Terry Olsen" <to******@hotma il.com> wrote in message
news:uD******** ******@TK2MSFTN GP10.phx.gbl...
I have loop that calls a Sub that runs the following code:

Dim WinZip As System.Diagnost ics.Process
Dim args As String = " -Pru -ex " & lblFolder.Text & "\" & PCName &
".zip @""" & appPth & "WksBkup.tx t"""
WinZip.Start("c :\Program Files\WinZip\wz zip.exe", args)
WinZip.WaitForE xit()
Do
If WinZip.HasExite d = True Then Exit Do
Loop
MsgBox("suppose dly exited")

However, it does not wait, and the message box never appears. I get
several command windows running WinZip at simultaneously. The program
does not block, If I click the button again, I get even more
simultaneously running command windows. But I can't get the program to
wait or even show me the messagebox.

Any ideas?

*** Sent via Developersdex http://www.developersdex.com ***

[Herfried K. Wagner [MVP]]

"Terry Olsen" <to******@hotma il.com> schrieb:

Dim WinZip As System.Diagnost ics.Process
Dim args As String = " -Pru -ex " & lblFolder.Text & "\" & PCName &
".zip @""" & appPth & "WksBkup.tx t"""
WinZip.Start("c :\Program Files\WinZip\wz zip.exe", args)
=> 'WinZip = Process.Start(. ..)'.
WinZip.WaitForE xit()
Do
If WinZip.HasExite d = True Then Exit Do
Loop
MsgBox("suppose dly exited")

However, it does not wait, and the message box never appears.

First, try to remove the 'Do...Loop' loop. As you are already using
'WaitForExit' the loop is not necessary.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Terry Olsen]

I added the Do...Loop just to see what would happen because the
'WaitForExit' is not waiting...

However, nothing is waiting and I can't figure out why...
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:uJ******** *****@TK2MSFTNG P15.phx.gbl...

"Terry Olsen" <to******@hotma il.com> schrieb:

Dim WinZip As System.Diagnost ics.Process
Dim args As String = " -Pru -ex " & lblFolder.Text & "\" & PCName &
".zip @""" & appPth & "WksBkup.tx t"""
WinZip.Start("c :\Program Files\WinZip\wz zip.exe", args)

=> 'WinZip = Process.Start(. ..)'.

WinZip.WaitForE xit()
Do
If WinZip.HasExite d = True Then Exit Do
Loop
MsgBox("suppose dly exited")

However, it does not wait, and the message box never appears.

First, try to remove the 'Do...Loop' loop. As you are already using
'WaitForExit' the loop is not necessary.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Herfried K. Wagner [MVP]]

"Terry Olsen" <to******@hotma il.com> schrieb:

I added the Do...Loop just to see what would happen because the
'WaitForExit' is not waiting...

However, nothing is waiting and I can't figure out why...

Are you sure you made the other change I suggested?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>