Contenido
Índice 🔎︎

# Función FreeFile

Devuelve el siguiente número de archivo disponible para la apertura de un archivo. Esta función se utiliza para abrir un archivo usando un número que no esté en uso por un archivo abierto actualmente .

## Sintaxis:

    FreeFile

## Valor de retorno:

Entero

## Parámetros:

Esta función solo se puede usar inmediatamente delante de una instrucción Open. FreeFile devuelve el número de archivo disponible, pero no lo reserva.

### Códigos de error:

5 Llamada a procedimiento no válida

67 Demasiados archivos

## Ejemplo:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        sMsg = ""
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumero, "Primera línea de texto"
        Print #iNumero, "Otra línea de texto"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As #iNumber
        While Not eof(#iNumber)
            Line Input #iNumber, sLine
            If sLine <>"" Then
                sMsg = sMsg & sLine & chr(13)
            End If
        Wend
        Close #iNumber
        MsgBox sMsg
    End Sub