call shell.. need to execute program but only if not yet running

[maudedo]

current code:
Private Sub Form_DblClick(Cancel As Integer)

Dim stAppName As String

stAppName = "C:\program files\microsoft office\office\EXCEL.EXE"
Call Shell(stAppName, 1)

end sub

however, i only want this to run if the file is not currently open on this machine.. how can i stop multiple versions of excel running?

the string i have used is just to test the function, an inhouse exe file will run once i get the code right..

 

[MattSTech]

If this is an app you have the source to (VB), you can add the following code to the form load procedure.

If app.PreviousInstance = True Then End

 

[maudedo]

thank you, i nwill give this a shot

 

[CajunCenturion]

Have you looked into using the FindWindow API?

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein