Problema con sucedaneo cutre de Buscar de Windows

Silent Noise
19 de Febrero del 2004
Tengo que hacer un programa parecido al Buscar de Windows, pero que solo me diga si el archivo exite o no.
El error me lo da cuando no encuentra el archivo. He intentado controlar el error, pero no hay manera.
Adjunto el codigo para si alguien me puede decir lo que he hecho mal.
Gracias
Dim ruta As String
Private Sub Buscar_Click()
On Error GoTo Errores
If nomFich.Text = "" Then
MsgBox "Introduce el nombre del archivo con su extension"
Else
ruta = Dir1.Path & "" & nomFich.Text
Open ruta For Input As #1
MsgBox "Se ha encontrado el archivo " + nomFich.Text
Close #1
Exit Sub
End If
Errores:
if err = 53 then
MsgBox "No exite el archivo"
end if
End Sub
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Baltasar
19 de Febrero del 2004
Ten mucho cuidado, estás intentando crear un archivo para ver si existe o no, pero no es la mejor manera.

Para eso está la función DIR de visual Basic, que te devuelve el nombre del archivo si lo encuentra:

if DIR("C:pruebapepe.txt")="" then
msgbox "archivo no encontrado"
endif

Es más sencillo
Saludos