Visual Basic - Existe el fichero o no

Hola a todos

Queria saber como hago para saber si determinado fichero existe o no.

y como hacer para abrir una carpeta y seleccionar dicho fichero.

Saber si existe fichero

Private Sub Command1_Click()
Dim CadenaArchivo As String
CadenaArchivo = "c:\autoexe.bat"
On Error Resume Next
Open sNombreFichero For Input As #1
If Err Then
MsgBox "el fichero si existe"
Else
MsgBox "el fichero no existe"
End If
Close #1
End Sub

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