Control del error

Ger©
03 de Mayo del 2004
Hola, estoy teniendo problemas con abrir archivos. Resulta que quiero abrir un archivo de tipo secuencial en modo lectura, este archivo no existe, y me da un error. Lo que yo quiero es poder controlar este error, meterlo en un if, y en el caso que exista o no haga una cosa u otra, pero no se que devuelve cuando no encuentra ningún archivo para leer.
Muchas gracias por vuestra ayuda

krizall
03 de Mayo del 2004
hola, puedes hacer esto
if dir(rutaarchivo)="" then
no existe
else
siexiste
end if

krizall
03 de Mayo del 2004
tambien podria hacer esto
al comenzar el procedimiento
on error goto DescErr
tu codigo
...
...
...
..
exit sub
DescErr:
msgbox err.number & "; " & err.descripcion
err.clear
end sub

Yuval
03 de Mayo del 2004
En alguna ocasion he tenido ese problema yo lo he solucionado asi:

....
on error goto crear
Open "C:...Patrones.txt" For Input As #1
input #1, .....

'en caso de que no exista dara un error ira a la etiqueta crear

crear:
open c:....patrones.txt for output as #1
close #1

espero te sirva SUERTE!!!

Ger©
03 de Mayo del 2004
Muchas gracias por vuestra ayuda, ya lo he podido solucionar