Solved: system primitive failed

I am trying to launch an app using the Shell method. However I get an area which says "System Primitive Failed"

When I go to the apps .exe file and click it it wont launch. However the icon on my desktop leads me to a "Windows NT Command Shell" which when I double click launches the app.

The command shell reads :-

SET ___COMPAT_LAYER = 256Color
START ...\Program\Phil.exe


How do I incorporate this into the Shell and SendKeys methods to launch and manipulate the app.

(By the way before anyone mentions it - the app is old and rubbish and I dont have access to any object model info!)

This should work for you :)

[VBA]
Dim RetVal As Double
RetVal = Shell("SET ___COMPAT_LAYER = 256Color" & Chr(13) & _
"START ...\Program\Phil.exe")
[/VBA]

Hi Tommy,

It didnt work.

It said File not found?!?!?

I would suggust that you find out where Phil.exe is and put the whole path to it instead of the "...\"

Then :
RetVal = Shell("SET ___COMPAT_LAYER = 256Color" & Chr(13) & _ "C:\Fullpath\Program\Phil.exe")