FreeFile (función)

Devuelve un entero que representa el siguiente número de archivo disponible para su uso en la instrucción Open .

Sintaxis

FreeFile [ (rangenumber) ]

El argumento rangenumber opcional es un valor Variant que especifica el intervalo a partir del cual se devolverá el siguiente número de archivo libre. Especifique un 0 (valor predeterminado) para devolver un número de archivo en el intervalo de 1 a 255, ambos incluidos. Especifique un 1 para devolver un número de archivo en el intervalo 256-511.

Observaciones

Use FreeFile para proporcionar un número de archivo que todavía no está en uso.

Ejemplo

En este ejemplo, se usa la función FreeFile para devolver el siguiente número de archivo disponible. Se abren cinco archivos para salida dentro del bucle y se escriben datos de muestra en cada uno de ellos.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.