Cita:
Iniciado por pkj 
Para cerrar todos los archivos abiertos con open creo que te basta con poner Close, sin número de archivo.
Quizá el archivo que intentas abrir ya está abierto y ese es el error que te muestra.
Para abrir un fichero asegurandose de que no hay otro abierto con ese numero se usa la función FreeFile.
NumFichero=FreeFile
De este modo el sistema te asigna a la variable un número de fichero que no se está usando en ese momento. Al cerrar el fichero se libera el número.
Que se dé bien.
Hola pkj!
Lo del FreeFile lo tengo muy claro el problema real y que es en principio donde me haceis incapie los dos tú y erbunson, es que posiblemente haya un archivo abierto, sobre esto y teniendo en cuenta que siempre abro archivos con el FreeFile y por eso me pierdo, es que como realizo muchas llamadas a sentencias, que por error y es lo mas seguro, abra mas de una vez el mismo archivo en algun bucle y no haya sido yo capaz de encontrarlo, ya se que es una chapuza pero por eso preguntaba si se podian cerrar todos de golpe sin saber cuantos y cuales estaban abiertos.
Un saludo