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.

Comentarios

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.