Test for program still running that was called via Shell(xyz)

[eyewonder]

I am calling another Windows program from within Access 97, using the Shell command. The program being called is 'dnc4u', a CNC uploading program.
I would like to wait after calling the Shell(xyz), until the 'dnc4u' program is complete.
Is there an easy way to test for that prog still running?
Cheers,
Steve

 

[theDBguy]

Hi Steve. Have you tried using ShellAndWait instead?

 

[The_Doc_Man]

Read this article.

Determine when a shelled process ends

Office VBA reference topic

docs.microsoft.com

It has an alternative option for you that might be what you want.

 

[isladogs]

Thanks for the link Doc. That will be useful!

 

[eyewonder]

Un, no - I've never heard of ShellAndWait. I'll be checking it out.
Thanks, it sounds like that will work for me.
I'll report back success (or frustration).

 

[eyewonder]

I've tried (briefly) both suggested methods, & can not make them work. This function would be nice, but not essential for my program, so I'm putting it off, for a while.
Cheers
Steve

 

[arnelgp]

do they work or not?
if not why? do you have msa?

 

[isladogs]

Try this code from Daniel Pineault:

'---------------------------------------------------------------------------------------
' Procedure : IsAppRunning
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Determine is an App is running or not
' Copyright : The following may be altered and reused as you wish so long as the
'             copyright notice is left unchanged (including Author, Website and
'             Copyright).  It may not be sold/resold or reposted on other sites (links
'             back to this site are allowed).
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sApp      : GetObject Application to verify if it is running or not
'
' Usage:
' ~~~~~~
' IsAppRunning("Outlook.Application")
' IsAppRunning("Excel.Application")
' IsAppRunning("Word.Application")
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2014-Oct-31                 Initial Release
'---------------------------------------------------------------------------------------
Function IsAppRunning(sApp As String) As Boolean
    On Error GoTo Error_Handler
    
    Dim oApp As Object
 
    Set oApp = GetObject(, sApp)
    IsAppRunning = True
 
Error_Handler_Exit:
    On Error Resume Next
    Set oApp = Nothing
    Exit Function
 
Error_Handler:
    Resume Error_Handler_Exit
End Function

 

[cheekybuddha]

I showed a method in this post how to capture the PID from Shell() and use that to close the process later.

hth,

d