Con la instruccion Dir puedes hacerlo, si no te encuentra el archivo, te devuelve una cadena vacia.
Mira lo que dice la documentacion de visual basic sobre esto:
Código vb:
Ver original'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")
' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir
' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)
' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\" ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If MiNombre <> "." And MiNombre <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
Debug.Print MiNombre ' Muestra la entrada
End If ' solamente si representa un directorio.
End If
MiNombre = Dir ' Obtiene siguiente entrada.
Loop