Visual Basic - Abrir carpeta contenedora

Buenas a todos...
Cuando buscamos un archivo en Windows y presionamos click derecho sobre éste, nos aparece el menú "Abrir carpeta contenedora", el cual abre el directorio y luego selecciona el archivo (Ojo no abrir el archivo sino seleccionarlo). Quisiera saber como puedo lograr eso desde mi aplicativo. Habrá una API talvez ??

Lo que pasa es q mi aplicativo genera algunos archivos y al terminar de crearlos quisiera darle la opción al usuario de ubicar el archivo.

Si saben como por favor díganmelo.

Gracias de antemano.

Si ya cuentas con la ruta del archivo entonces puedes aplicar la API ShellExecute que permite realizar diversas operaciones como abrir Archivos, Carpetas, URL, etc...

Dim a As String
Dim x As Integer
a = "c:haberunododocdsfddfdsx.xls"
MsgBox Len(a)
For i = Len(a) To 1 Step -1
If (Mid(a, i, 1)) = "" Then
x = i
Exit For
End If
Next
a = Left(a, x)

z = ShellExecute(Me.hwnd, "Open", a,"" ,"" , 1)

Gracias amigo, pero de esta manera me abre el archivo pero mi finalidad no es esa sino abrir el directorio que la contiene y luego seleccionar el archivo (sin abrirlo, sólo ubicarlo)

Si saben como por favor apóyenme con eso.
Gracias de antemano.

No no no no no, de esta forma te abrirá la carpeta contenedora del archivo, eso sí como te dije si ya cuentas con la ruta del archivo (por lo tanto tiene que ser una correcta), ah y disculpa por responder de esa manera equívoca ya que me equivoqué pero el Algoritmo está bien.

Era:

a = "c:haberunododocdsfddfdsx.xls"

Ya que el FOR realiza que a se convierta en:

a= "c:haberunododocdsfddfds"

Saludos.

Hey que tal Edwin espero todavia pueda suceder una respuesta a esto

ingrese este codigo a mi programa pero me arroja que i no es una variable definida

Alguien sabe algo????

Para abrir una carpeta cualquiera (en este caso una que está dentro de la carpeta donde se halla la aplicación) se tiene que escribir así:

Dim lValDev As Long
lValDev = ShellExecute(Me.hWnd, "Open", App.Path & "Biblio", "", "", 1)

Si no existe la carpeta, la función ShellExecute regresará un código de error que se almcena en lValDev (ya para sabr cúales son los códigos de error ir a la página de información de la Microsoft)

Un saludo