Error 55 : el archivo ya esta abierto

[mesenier]

Hola gente!

tengo una aplicacion que a veces falla y otras veces no falla, la parte del codigo donde falla es la siguiente

dim localfile
localfile= "c:\bla\blablabla.txt"
[... más codigo...]
Open Localfile For Binary As #1

y el error es , como el titulo del post indica, Error 55 : el archivo ya esta abierto

¿Como se puede cerrar el archivo localfile antes de abrirlo? si es que esta abierto o como se puede solucionar esto de algun modo?
llevo unos dias ahi dandole y nada...a ver si alguien me ayudaaa...
saludos

[agus0]

Probá Con

Código:

Dim LocalFile as String
Dim NumberFile as Integer
     LocalFile = "C:\Doc\Text1.txt"
     NumbrerFile = FreeFile
[... más codigo...]
     Open LocalFile For Binary As #NumberFile

[mesenier]

Pues gracias por tu aporte pero eso no ha cambiado nadaa ---------------¿alguna alternativa?

[erbuson]

Hola, antes de nada, aunque comprendo tu indignación, la pregunta de c...., creo que está de mas, pero bueno, esto es un tema aparte.

Te explico el error y porque se puede producir.

La función Freefile te devuelve un número de archivo disponible para ser utilizado, pero debes utilizarla siempre, supongamos

Numero = Freefile
Open "Fichero" For Input As #Numero

Open "Otro" For Input As #1

Esto te producirá un error porque muy probablemente Freefile te haya devuelto para Numero = 1

Al forzar tu la siguiente apertura como número 1 produces el error 55

Comprueba lo indicado y comenta, pero esta puede ser probablemente la razon.

Saludos

[mesenier]

Gracias pero tampoco funciona

[erbuson]

Si esto tampoco funciona, sin ver el código es muy dificil llegar a conclusiones, se me ocurren algunas posibles soluciones pero no dejan de ser chapuzas ya que lo que habría que intentar es determinar porque razón se produce el error.

Un posible opcion sería tener una variable compartida que se pusiera a True en el momento de abriri el archivo y a False en el momento de cerrarlo, entonces debería abrirse SOLO si la variable no es True porque ello significaría que está cerrado.

Otra posible opcion sería un On Error Resume Next pero deberías tener la certeza de que el archivo que está abierto es el correcto ya que de lo contrario quien sabe que datos se obtendrían.

Como digo, mejor sería determinar el porque viendo el código.

[fallen61]

Che todo bien hasta donde ibas, pero te salta eso PORQUE EL ARCHIVO YA ESTA ABIERTO. Si vos le decis que lo abra, es logico que te va a saltar ese error.
Cada vez que abras un archivo " as #N" cerralo con "Close #N" al terminar de usarlo.
Un ejemplo para que te quede mas claro que el agua mineral:


Open LocalFile For Binary As #NumberFile

(todo el codigo para mandar a hacer al archivo)


Close #NumberFile.


Pd: El post es hace casi un mes, pero esta es la respuesta a tu problema, lo revivo porque es mas que seguro mi respuesta tu solucion. Aunque haya posteado, espero que ya hayas encontrado la respuesta.

Suerte!