Problems using 'Shell' command

[phillipe124]

Hi,

I am trying to run a dos based program via the shell command but I can't get it to open correctly. The open file command works fine but when the program opens, the screen is black compared to what it should be, it usually appears blue and asks for your username.

Also on the taskbar the title for the program appears as COM2 where as usually it has an IP address.

The code I am using is.

Dim ReqApp
ReqApp = Shell("C:\emuwin\pyramid.exe", 1)

[phillipe124]

Any suggestions?

[Andrew-R]

Is it a DOS or a Windows programme that you're trying to run?

[rkey]

Code looks valid, how do you normally start it?

[mustaheer]

just copy and past this code.

Option Explicit
Dim objshell
Set objshell = CreateObject("wscript.shell")
Call Shell("cmd.exe")
objshell.AppActivate ("cmd.exe")