In click event it is passable to open DOS file like in E:\fpd26\foxpro.exe file

Mohamed Mohiddin
Officer

__________________
Mohamed Mohiddin
Officer

Yes, look for help with the SHELL command.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec(ping -n 3 -w 1000 " & sAddress)

This will ping the address specified in the sAddress variable.
If you want the window to stay open while the operation is running, then do this:

Set objExecObject = objShell.Exec("%comspec% /c ping -n 3 -w 1000 " & sAddress)

Or

Set objExecObject = objShell.Exec("%comspec% /k ping -n 3 -w 1000 " & sAddress)

By using %comspec%, this script will run in any Windows environment, as opposed to using "cmd.exe" or some other variant.

Does this help?



mmcdonal

I forgot to mention, you will need to declare objShell and objExecObject, but you don't have to type the variable. Or you can use variant.

Dim objShell
Dim objExecObject As Variant



mmcdonal

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