Devuelve un tipo String que representa el nombre de un archivo, directorio o carpeta que coincide con el patrón o atributo de archivo especificado, o la etiqueta de volumen de una unidad de disco.
Su Sintaxis es
Dir[(nombre_ruta[, atributos])]
La sintaxis de la función Dir consta de las siguientes partes:
Parte Descripción
nombre_ruta Opcional.Expresión de cadena que especifica un nombre de archivo. Puede incluir el directorio o carpeta y la unidad de disco. Si no se encuentra nombre_ruta, devolverá una cadena de longitud cero ("").
En este ejemplo se utiliza la función Dir para comprobar si existen ciertos archivos y directorios.
Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI" si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")
' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")
y para abrirlo, debés usar el Control CommonDialog.
CommonDialog1.ShowOpen