J
John Crouse
I am using the following code sucessfully on Windows 2000 and Windows XP.
However, in WIndows 98 it seems to hang on the WaitForExit. What are my
options here?
MsgBox("Please be patient. This operation could take a minute or two
to complete.", MsgBoxStyle.Information, "CPViewer")
Me.Cursor = Cursors.WaitCursor
Dim p As New System.Diagnostics.ProcessStartInfo
p.CreateNoWindow = True
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = strInput
p.UseShellExecute = True
'Dim pr As System.Diagnostics.Process =
System.Diagnostics.Process.Start(p)
Dim pr As Process = Process.Start(p)
'Start = Microsoft.VisualBasic.DateAndTime.Timer
'Finish = Start + 120.0
'Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish
'Loop
pr.WaitForExit()
pr.Close()
pr.Dispose()
Me.Cursor = Cursors.Default
Thank you,
John
However, in WIndows 98 it seems to hang on the WaitForExit. What are my
options here?
MsgBox("Please be patient. This operation could take a minute or two
to complete.", MsgBoxStyle.Information, "CPViewer")
Me.Cursor = Cursors.WaitCursor
Dim p As New System.Diagnostics.ProcessStartInfo
p.CreateNoWindow = True
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = strInput
p.UseShellExecute = True
'Dim pr As System.Diagnostics.Process =
System.Diagnostics.Process.Start(p)
Dim pr As Process = Process.Start(p)
'Start = Microsoft.VisualBasic.DateAndTime.Timer
'Finish = Start + 120.0
'Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish
'Loop
pr.WaitForExit()
pr.Close()
pr.Dispose()
Me.Cursor = Cursors.Default
Thank you,
John