Como llamar archivos desde VFP
Necesito que alguien me explique como puedo hacer lo siguiente: necesito saber como llamar un archivo de cualquier extension desde un boton por ejemplo el boton: "ejecutar examen" cuando presione click me abra el documento que ya cree "examen.doc" es urgente ayuda porfavor!!!
DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile, STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32
LOCAL cFile, nWhnd, cStartPath, nx
cFile=\'Examen.doc\'
IF FILE(cFile)
nWhnd=GetDesktopWindow()
cStartPath=ADDBS(JUSTPATH(cFile))
nResult=ShellExecute(nWhnd, \'OPEN\', cFile, \'\', cStartPath, 1)
ENDIF
DECLARE INTEGER GetDesktopWindow IN User32
LOCAL cFile, nWhnd, cStartPath, nx
cFile=\'Examen.doc\'
IF FILE(cFile)
nWhnd=GetDesktopWindow()
cStartPath=ADDBS(JUSTPATH(cFile))
nResult=ShellExecute(nWhnd, \'OPEN\', cFile, \'\', cStartPath, 1)
ENDIF
DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile, STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32
LOCAL cFile, nWhnd, cStartPath, nx
cFile=\\'Examen.doc\\'
IF FILE(cFile)
nWhnd=GetDesktopWindow()
cStartPath=ADDBS(JUSTPATH(cFile))
nResult=ShellExecute(nWhnd, \\'OPEN\\', cFile, \\'\\', cStartPath, 1)
ENDIF
DECLARE INTEGER GetDesktopWindow IN User32
LOCAL cFile, nWhnd, cStartPath, nx
cFile=\\'Examen.doc\\'
IF FILE(cFile)
nWhnd=GetDesktopWindow()
cStartPath=ADDBS(JUSTPATH(cFile))
nResult=ShellExecute(nWhnd, \\'OPEN\\', cFile, \\'\\', cStartPath, 1)
ENDIF
