Control del error
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
Muchas gracias por vuestra ayuda
hola, puedes hacer esto
if dir(rutaarchivo)="" then
no existe
else
siexiste
end if
if dir(rutaarchivo)="" then
no existe
else
siexiste
end if
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
al comenzar el procedimiento
on error goto DescErr
tu codigo
...
...
...
..
exit sub
DescErr:
msgbox err.number & "; " & err.descripcion
err.clear
end sub
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!!!
....
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!!!