'**************************************
' Name: fWait
' Description:Shells an app, then waits 


'     for that app to close before it continue
    '     s processing.
' By: Brian Cidern
'
' Inputs:None --
'
' Returns:Shelled app exit code
'
' Assumes:Pseudo code:
Uses API To Get the OS dir (for 95/98/NT4/2000 compatability) and appends result With Notepad.exe. Shells Notepad, returning process id. fWait gets the app hdl and issues a Do Events until the Exit code of the app <> STILL_ACTIVE&. When app is closed, a cheezy MsgBox displays.
Create a Std EXE. Add a command button, and use the default name (Command1).
'
' Side Effects:None --
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=6071&lngWId=1'for details.'**************************************



Private Sub Command1_Click()

    Dim sCmdLine As String
    Dim idProg As Long, iExit As Long
    sCmdLine = fGetWinDir & "\notepad.exe"
    idProg = Shell(sCmdLine)
    iExit = fWait(idProg)


    If iExit Then
        MsgBox "Something very, very bad just happened."
    Else
        MsgBox "Finished processing Notepad."
    End If

End Sub



Function fWait(ByVal lProgID As Long) As Long

    ' Wait until proggie exit code <> 
    '     STILL_ACTIVE&
    Dim lExitCode As Long, hdlProg As Long
    ' Get proggie handle
    hdlProg = OpenProcess(PROCESS_ALL_ACCESS, False, lProgID)
    ' Get current proggie exit code
    GetExitCodeProcess hdlProg, lExitCode


    Do While lExitCode = STILL_ACTIVE&


        DoEvents
            GetExitCodeProcess hdlProg, lExitCode
        Loop

        CloseHandle hdlProg
        fWait = lExitCode
    End Function



Private Function fGetWinDir() As String

    ' Wrapper to return OS Path
    Dim lRet As Long, lSize As Long, sBuf As String * 512
    lSize = 512
    lRet = GetWindowsDirectory(sBuf, lSize)
    fGetWinDir = Left(sBuf, InStr(1, sBuf, Chr(0)) - 1)
End Function