Browser("c:\myfolder\myjpeg.jpg")
FUNCTION BROWSER
PARAMETER m.FILENAME,m.LINEPARAMS
LOCAL LNRETVAL, LCOPERATION
PRIVATE m.FILENAME,m.LINEPARAMS
LCOPERATION = "Open"
IF PCOUNT() < 2
m.LINEPARAMS = ""
ENDIF
IF MYFILE(m.FILENAME)
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
INTEGER handle,;
STRING @sFile,;
STRING @lp,;
STRING @DIR,;
STRING @dir1,;
INTEGER ncmd
LNRETVAL = SHELLEXECUTE(0, LCOPERATION, m.FILENAME, m.LINEPARAMS, "", 1)
ELSE
MESSAGEBOX("Unable to locate the specified file : "+m.FILENAME,48,"Problem")
ENDIF
RETURN(.F.)