Here is how I do it:
Function ssiRun
Lparameters lcProgramToRun, luWindow
* this is a better way to run an external program than ! or RUN /N etc
If Type("luWindow") = "L"
luWindow = 1
Endif
Local loshell
loshell = Createobject("WScript.Shell")
loshell.Run(lcProgramToRun,luWindow,.T.)
Endfunc
----- Original Message -----
From: "Jim Harvey" <[EMAIL PROTECTED]>
To: "'ProFox Email List'" <[email protected]>
Sent: Tuesday, July 08, 2008 10:52 AM
Subject: pdf in vfp
This doesn't work using a pdf (no error returned, just doesn't do anything),
but does with a jpg file, is it possible with a pdf?
***commandbutton.click
mcheck = alltrim(checks.pathname) + ALLTRIM(checks.filename) + ".pdf"
declare long ShellExecute in "shell32.dll" ;
long hwnd, ;
string lpszOp, ;
string lpszFile, ;
string lpszParams, ;
string lpszDir, ;
long nShowCmd
ShellExecute(0,'Open',(mcheck),'','',0)
James E Harvey
Hanover Shoe Farms, Inc.
M.I.S./Corresponding Officer
Off: 717-637-8931
fax: 717-637-6766
email: [EMAIL PROTECTED]
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
