View Single Post
  #5 (permalink)  
Old October 18th, 2006, 12:20 PM
mmcdonal mmcdonal is offline
Friend of Wrox
Points: 9,611, Level: 42
Points: 9,611, Level: 42 Points: 9,611, Level: 42 Points: 9,611, Level: 42
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Mar 2004
Location: Washington, DC, USA.
Posts: 3,069
Thanks: 0
Thanked 10 Times in 10 Posts
Default

Its all coming back to me now...

You will also want your executable to be in your path statement.

Oooh, You can run path using the above code, then take the path as the variable, then add the path to your executable to the path variable, then pass the path variable back using set path.

Who here remembers DOS?!


'------------------

Do While Not objExecObject.StdOut.AtEndOfStream
   strText = objExecObject.StdOut.ReadAll()

   If InStr(strText, "Path") > 0 Then
        sPath = strText & ";" & "C:\Program Files\FoxPro\"
   End If
Loop

Set objExecObject = objShell.Exec(set path sPath)
Set objExecObject = objShell.Exec(foxpro.exe)

HTH
(I'll start drinking decaffeinated...)



mmcdonal
Reply With Quote