Nota
La función, el método, el objeto o la propiedad descritos en este tema se deshabilitan si el servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente inseguras. Para obtener más información sobre el modo de espacio aislado, busque "modo de espacio aislado" en la Ayuda.
Devuelve un entero que representa el siguiente número de archivo disponible para su uso por la instrucción Open .
Sintaxis
FreeFile[(númerode rango)]
El argumento opcional rangenumber es una variante que especifica el intervalo desde el que se devolverá el siguiente número de archivo libre. Especifique 0 (valor predeterminado) para devolver un número de archivo en el intervalo de 1 a 255, inclusive. 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 aún no está en uso.
Ejemplo
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función FreeFile para devolver el siguiente número de archivo disponible. Se abren cinco archivos para su salida dentro del bucle y se escriben algunos datos de ejemplo en cada uno.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex