explorer

Utiliza la Función ShellExec.

ShellExec("c:\")
ShellExec("c:\miarchivo.doc")
ShellExec("http://www.tuservidor.com")
ShellExec("mailto:")
etc, etc...


*!*
****************************************************************************
**
*!* ShellExec
*!*
****************************************************************************
**
FUNCTION ShellExec
LPARAMETER lcLink, lcAction, lcParms

lcAction = IIF(EMPTY(lcAction),"Open",lcAction)
lcParms = IIF(EMPTY(lcParms),"",lcParms)

DECLARE INTEGER ShellExecute ;
IN SHELL32.dll ;
INTEGER nWinHandle ,;
STRING cOperation ,;
STRING cFileName ,;
STRING cParameters ,;
STRING cDirectory ,;
INTEGER nShowWindow

DECLARE INTEGER FindWindow ;
IN WIN32API ;
STRING cNull, STRING cWinName

RETURN ShellExecute(FindWindow(0,_SCREEN.Caption) ,;
lcAction,lcLink,;
lcParms,SYS(2023),1)
ENDFUN && ShellExec


__________________________
Javier Leal
VFP7 SP1, W2000 Profesional
nospam.javier.leal(arroba)e-innovatech.com

Monterrey, N.L. - México


"Julian" escribió en el mensaje
news:

Hola a todos.

A ver si alguien me puede ayudar.

Necesito que desde el explorer, igual que al pinchar un archivo.doc, abre

el

word o al pinchar sobre un archivo txt abre el excel, que al pinchar sobre
un comando se abra el programa que le corresponda (word, excel, etc)

Gracias a todos y para los que empiezan las vacaciones ya, que lo pasen

muy

bien.