**************************************************** FUNCTION GoUrl ****************** *** Author: Rick Strahl *** (c) West Wind Technologies, 1996 *** Contact: rstrahl@west-wind.com *** Modified: 03/14/96 *** Function: Starts associated Web Browser *** and goes to the specified URL. *** If Browser is already open it *** reloads the page. *** Assume: Works only on Win95 and NT 4.0 *** Pass: tcUrl - The URL of the site or *** HTML page to bring up *** in the Browser *** Return: 2 - Bad Association (invalid URL) *** 31 - No application association *** 29 - Failure to load application *** 30 - Application is busy *** *** Values over 32 indicate success *** and return an instance handle for *** the application started (the browser) **************************************************** LPARAMETERS tcUrl, tcAction, tcDirectory, tcParms IF EMPTY(tcUrl) RETURN -1 ENDIF IF EMPTY(tcAction) tcAction = "OPEN" ENDIF IF EMPTY(tcDirectory) tcDirectory = SYS(2023) ENDIF DECLARE INTEGER ShellExecute ; IN SHELL32.dll ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow IF EMPTY(tcParms) tcParms = "" ENDIF DECLARE INTEGER FindWindow ; IN WIN32API ; STRING cNull,STRING cWinName RETURN ShellExecute(FindWindow(0,_SCREEN.caption),; tcAction,tcUrl,; tcParms,tcDirectory,1)I call this one GoUrl() because it works with URLs, but it works with any file you pass it. It'll open that file with the configured view same as what you're doing with the script shell.
> wsh = createobject("wscript.shell") > wsh.run(cPDFFile,1,.T.) >>