Como lanzar archivos desde Fox Pro 9
Hola Experto.
Necesito tu valiosísima ayuda, no se como se puede lanzar un archivo del tipo que sea desde Fox en su aplicación original, ejemplo, un archivo de excel en excel uno de word en word, una imagen en el editor predeterminado. Esto debido a que tengo un formulario en el cual viene la ruta completa del archivo y quiero que a partir de un doble click este se abra y la otra, como incluir estos archivos a manera de thubnail en un reporte para su impresión, si son imágenes ya lo tengo pero si son archivos de excel o word no. Antes me salían porque estaban en un campo general y se presentaban en el reporte en un control ole y este generaba la thubnail pero decidí cambiar la estructura de mi tabla y dejar solo las rutas de los archivos y no se como obtener un resultado así.
Gracias por tu paciencia.
Necesito tu valiosísima ayuda, no se como se puede lanzar un archivo del tipo que sea desde Fox en su aplicación original, ejemplo, un archivo de excel en excel uno de word en word, una imagen en el editor predeterminado. Esto debido a que tengo un formulario en el cual viene la ruta completa del archivo y quiero que a partir de un doble click este se abra y la otra, como incluir estos archivos a manera de thubnail en un reporte para su impresión, si son imágenes ya lo tengo pero si son archivos de excel o word no. Antes me salían porque estaban en un campo general y se presentaban en el reporte en un control ole y este generaba la thubnail pero decidí cambiar la estructura de mi tabla y dejar solo las rutas de los archivos y no se como obtener un resultado así.
Gracias por tu paciencia.
1 Respuesta
Respuesta de davsoft
1
para abrir un archivo con el respectivo programa asociado es asi
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin
=ShellExecute(0,"open","temp.txt","","",1)
=ShellExecute(0,"open","c:\mis documentos\datos.xls","","",1)
Esto abrirá el archivo automáticamente con su programa asociado.
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin
=ShellExecute(0,"open","temp.txt","","",1)
=ShellExecute(0,"open","c:\mis documentos\datos.xls","","",1)
Esto abrirá el archivo automáticamente con su programa asociado.
