Urgente, confirmar si archivo existe

[ReViJa]

Puedes crear una función así:

Código:

Function ExisteArchivo(cArchivo As String) As Boolean

If FileSystem.Dir(App.Path & "\cArchivo") = "" Then 
    ExisteArchivo=false
else
    ExisteArchivo=true
end if

End Function

NOTA: Todo depende de:

Si cArchivo solo tiene el nombre del archivo + extensión usa el ejemplo de arriba.
Si cArchivo tiene la ruta + nombre de archivo + extensión quita el app.path, ok.


Saludos.