Saludos a todos,

Resulta que he realizado un programa que envía mensajes de correo a los
destinatarios seleccionados de la libreta de direcciones de Outlook
Express. El problema surge en la forma de abrir la libreta de direcciones:

Dim dTaskID As Double
dTaskID = Shell("c:\Archivos de programa\Outlook Express\wab.exe",
vbNormalFocus)
End Sub

Si la libreta se encuentra en la unidad C: no hay ningún problema, pero
si se encuentra en una unidad o directorio diferente, entonces se genera
un error.
Mi pregunta es: Cómo puedo obtener la ubicación del directorio "Archivos
de programa"? Porque la letra de unidad actual o la ubicación de la
aplicación o de los directorios de Windows no ofrecen mayor problema,
pero para los Archivos de programa no he encontrado documentación alguna.

Por su atención, gracias.

'Compadisk