SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: m0skit0 en Jueves 26 de Marzo de 2009, 12:09

Título: FreeFile() siempre devuelve el mismo valor
Publicado por: m0skit0 en Jueves 26 de Marzo de 2009, 12:09
Código: Visual Basic
  1. FicheroEntrada = FreeFile()
  2. FicheroSalida = FreeFile()
  3. FicheroLog = FreeFile()
  4.  
Me devuelve 1 en todas las llamadas. ¿Alguien sabe alguna forma de hacer que funcione bien?

P.D: cada día que pasa VB me parece más lamentable...  :bad:
Título: Re: FreeFile() siempre devuelve el mismo valor
Publicado por: F_Tanori en Jueves 26 de Marzo de 2009, 12:21
Pues es 1 ya que no haz abierto ningun canal

Código: Visual Basic
  1.  
  2. Private Sub Command1_Click()
  3.     FicheroEntrada = FreeFile()
  4.     Open "C:FicheroEntrada.txt" For Binary As #FicheroEntrada
  5.    
  6.     FicheroSalida = FreeFile()
  7.     Open "C:FicheroSalida.txt" For Binary As #FicheroSalida
  8.    
  9.     FicheroLog = FreeFile()
  10.    
  11.     Debug.Print FicheroEntrada
  12.     Debug.Print FicheroSalida
  13.     Debug.Print FicheroLog
  14.    
  15. End Sub
  16.  

Te devolvera el siguiente archivo (fichero) libre hasta que este abierto, si no sigue disponible el 1 como en el codigo que muestras

Saludos
Título: Re: FreeFile() siempre devuelve el mismo valor
Publicado por: m0skit0 en Jueves 26 de Marzo de 2009, 12:48
Gracias, era evidente...  :ph34r: