Ejecutar Acrobat Reader

Hola a todos:

Gracias por todoa vuestra ayuda, yo he realizado esta otra versión:

Dim sClavePDF As String
Dim sComando As String

'Primero obtenemos la clave asociada a la extensión .pdf
sClavePDF = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\.pdf", "", "")

'Despues, con la clave PDF, obtenemos el commando a utilizar para abrir el
PDF
sComando = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & sClavePDF &
"\Shell\Open\Command", "", "")

'Luego solo queda sustituir en el comando obtenido el %1 por el nombre path
y nombre del fichero que se desea abrir.
sPathAcrobat = Replace(sPathAcrobat, "%1", sArchivoPDF)

Un saludo
Bingen

"Bingen" escribió en el mensaje
news:

Muy Buenas !!!

Quiero abrir unos PDF-s con el Acrobat Reader. Pero les comento:

Lo consigo utilizando la función shell, pero tengo que indicarle el path
entero hasta el acrobat como

shell("C:\Archivos de programa\Adobe\Acrobat 5.0\Reader\ACRORD32.EXE " &
sArchivoPDF, AppWinStyle.NormalFocus).

El problema que se me plantea es que el acrobat reader estará en
diferentes sitios según la máquina del usuario. ¿ Existe alguna forma de
ejecutar la aplicación sin tener que especificar el path (El S.O. tal vez
tenga esa información el registro, etc)

Un saludo

Bingen

"Bingen" escribió en el mensaje
news:

Hola a todos:

Gracias por todoa vuestra ayuda, yo he realizado esta otra versión:

Dim sClavePDF As String
Dim sComando As String

'Primero obtenemos la clave asociada a la extensión .pdf
sClavePDF = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\.pdf", "",
"")

'Despues, con la clave PDF, obtenemos el commando a utilizar para abrir el
PDF
sComando = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & sClavePDF
& "\Shell\Open\Command", "", "")

'Luego solo queda sustituir en el comando obtenido el %1 por el nombre
path y nombre del fichero que se desea abrir.
sPathAcrobat = Replace(sPathAcrobat, "%1", sArchivoPDF)

Un saludo
Bingen

Hola.

Al final, eso es una implementacion manual de ShellExecute con "open".

Sigue habiendo una ligera diferencia de rendimiento (y economía, creo) a
favor de la API, pero es insignificante, y dudo que hagas eso en un ciclo
:-)


Salud!

Una pregunta, la API que indicas ¿ que sistemas operativos lo tiene ?, XP,
2000 ...

Gracias por tu tiempo
Bingen


"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:

"Bingen" escribió en el mensaje
news:

Hola a todos:

Gracias por todoa vuestra ayuda, yo he realizado esta otra versión:

Dim sClavePDF As String
Dim sComando As String

'Primero obtenemos la clave asociada a la extensión .pdf
sClavePDF = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\.pdf", "",
"")

'Despues, con la clave PDF, obtenemos el commando a utilizar para abrir
el PDF
sComando = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & sClavePDF
& "\Shell\Open\Command", "", "")

'Luego solo queda sustituir en el comando obtenido el %1 por el nombre
path y nombre del fichero que se desea abrir.
sPathAcrobat = Replace(sPathAcrobat, "%1", sArchivoPDF)

Un saludo
Bingen

Hola.

Al final, eso es una implementacion manual de ShellExecute con "open".

Sigue habiendo una ligera diferencia de rendimiento (y economía, creo) a
favor de la API, pero es insignificante, y dudo que hagas eso en un ciclo
:-)


Salud!

"Bingen" escribió en el mensaje
news:

Una pregunta, la API que indicas ¿ que sistemas operativos lo tiene ?, XP,
2000 ...

Gracias por tu tiempo
Bingen

Hola.

Creo que todas, desde Win95 y NT 3.1 hasta Vista. Es el mecanismo mediante
el cual se responde al doble click sobre un archivo en el explorador.

Salud!