objShell.Run Problem ..Please Help

[stephenmbell]

I am sure this question has been addressed plenty of times but I have googled it for a while now, and still cannot get it to work...

why does this script not run the AIM program..

Dim objShell, strPath
strPath = """C:\Program Files\AIM6\aim6.exe"""
MsgBox(strPath)
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run strPath, 1, True
Set objShell = Nothing
MsgBox("done")

Thanks in advance

sb

 

[DTodd83]

If you look at the AIM shortcut, are there any arguments after "C:\Program Files\AIM6\aim6.exe"?

What happens when you run "C:\Program Files\AIM6\aim6.exe" from the command prompt?

What happens when you try "C:\Program Files\AIM6\aim6.exe /?" from the command prompt?

 

[greg0303]

Are you getting an error?
try using strPath = "C:\Progra~1\AIM6\aim6.exe

 

[sparkbyte]

This should get you going.

the Chr(34) puts the " around the path on the command line when the objShell.Run is executed.

Dim objShell, strPath
strPath = "C:\Program Files\AIM6\aim6.exe"
MsgBox(strPath)
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run Chr(34) & strPath & Chr(34), 1, True
Set objShell = Nothing
MsgBox("done")

Hope this helps.


Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com