Visual Basic - Problema con Archivos

Life is soft - evento anual de software empresarial
 
Vista:

Problema con Archivos

Publicado por Gonzalo (2 intervenciones) el 02/03/2005 14:13:15
Hola a todos
Hice un programa que atiende varias conexiones concurrentes y las va logueando en archivos de texto.
Y de vez en cuando el programa se cuelga en una parte que dice asi:

OPEN filename for append as #n
PRINT #n, cadena (aca se cuelga)

ocurre muy de vez en cuando, y el error que aparece es BAD FILENAME or FILENUMBER
es como que quiere imprimir en un archivo que todavia no esta abierto.
Puede ser que a veces falle el open?

Alguien que me de una pista, gracias!

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con Archivos

Publicado por Matías Freire (421 intervenciones) el 02/03/2005 20:02:48
En realidad cuando usás tantos archivos de texto no tendrías que usar un número fijo. Es por eso que tenés problemas. Tenés que usar la Función "FreeFile", que te devuelve un número de archivo que todavía no se usó. Te doy un ejemplo:

Private Sub Command1_Click()
Dim i As Integer

i = FreeFile

Open "pipo" For Output As #i
Print #i, "lolo"
Close #i
End Sub

Espero que te sirva. Saludos!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar