Urgente Error en Ole

a ver si asi funciona



CASE xx=6
lcfile=THISFORM.pgfinves.pgDetalle.editubi_dpto.VALUE

lcFile = fullpath(lcFile)
if file(lcFile)

loshell=CREATEOBJECT("shell.application")
loshell.shellexecute(lcfile)
RELEASE loshell

endIf && file(lcFile)

WAIT WINDOW 'Usted ah Eligido Si'
CASE xx=7




"Alexander" wrote in message
news:b64401c4376e$2b939900$
hola a todos

tengo una aplicacion que se encuentra instalada en un
equipo con win98-se,
mi problema es el siguiente:

cada ves que deseo abrir por automatizacion cualquier
archivo (jpg, doc,
xls, etc..) me muestra un error en ole... como puedo
corregirlo...

el codigo que utilizo es el siguiente:

lcfile=GETFILE("*")
THISFORM.pgfinves.pgDetalle.editubi_dpto.VALUE=lcfile
***en donde quedara
la direccion del archivo
xx=MESSAGEBOX("Desea Abrir el
Documento",4+32+256, "Información")
DO CASE
CASE xx=6
lcfile=THISFORM.pgfinves.pgDetalle.editubi_dpto.VALUE
loshell=CREATEOBJECT("shell.application")
loshell.shellexecute(lcfile)
RELEASE loshell
WAIT WINDOW 'Usted ah Eligido Si'
CASE xx=7
WAIT WINDOW 'Usted ah Eligido No'
RETURN
ENDCASE


de antemano gracias


Alexander Jimenez
Futuro TSU en Informatica
Maracay-Venezuela