Programación General > Visual Basic 6.0 e inferiores

 FreeFile() siempre devuelve el mismo valor

(1/1)

m0skit0:

--- Código: Visual Basic ---FicheroEntrada = FreeFile()FicheroSalida = FreeFile()FicheroLog = FreeFile() 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:

F_Tanori:
Pues es 1 ya que no haz abierto ningun canal


--- Código: Visual Basic --- Private Sub Command1_Click()    FicheroEntrada = FreeFile()    Open "C:FicheroEntrada.txt" For Binary As #FicheroEntrada        FicheroSalida = FreeFile()    Open "C:FicheroSalida.txt" For Binary As #FicheroSalida        FicheroLog = FreeFile()        Debug.Print FicheroEntrada    Debug.Print FicheroSalida    Debug.Print FicheroLog    End Sub 
Te devolvera el siguiente archivo (fichero) libre hasta que este abierto, si no sigue disponible el 1 como en el codigo que muestras

Saludos

m0skit0:
Gracias, era evidente...  :ph34r:

Navegación

[0] Índice de Mensajes