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:
Mostrar la cita

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