RE:Archivos Pdfs
Publicado por
Alejandro (1 intervención) el 01/03/2004 06:19:01
Hola,
probá esto:
La siguiente función de la API de Windows es útil cuando queramos ejecutar cualquier tipo de archivo ya sean páginas Web, archivos de Word o documentos de texto. La propia función se encarga de buscar el programa asociado y abrirlo.
Declara la siguiente función en un módulo .BAS (ya sabes, para poder utilizarla otra vez). Recuerda que la declaración de la función está extraida del Visor de API de Windows y que la declaración va entera en una línea.
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 5
Ahora vamos a utilizarla con tres o cuatro ejemplillos.
'Abrir una página Web : abre el navegador y conecta con el sitio
ShellExecute 0,”open”,”http://www.galeon.com/rgpuente/”,””,””,SW_SHOW
'Abrir un documento Word : abre MS-Word y el documento
ShellExecute 0,”open”,App.Path & “\MIDOC.DOC”,””,””,SW_SHOW
'Abrir un documento de texto : abrirá el NotePad con el documento
ShellExecute 0,”open”,App.Path & “\MITXT.TXT”,””,””,SW_SHOW
suerte