Shell and wait

[Erel]

The following code allows you to run an external application and wait for it to finish (unlike regular Shell which continues to run immediately).
It requires the Door library: http://www.basic4ppc.com/forum/official-updates/2038-door-library-beta-special-library-post11025.html

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    'Initialize objects
    process.New1(false)
    process.CreateNew("System.Diagnostics.Process" & process.System_NS)
    StartInfo.New1(false)
    StartInfo.Value = process.GetProperty("StartInfo")
    
    'Usage
    ShellAndWait("iexplore","www.basic4ppc.com")
    Msgbox("After Shell")
End Sub

Sub ShellAndWait(File, Arguments)
    StartInfo.SetProperty("FileName",File)
    StartInfo.SetProperty("Arguments",arguments)
    process.RunMethod("Start")
    process.RunMethod("WaitForExit")
    process.RunMethod("Close")
End Sub