Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
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 número_rango opcional es un tipo de datos Variant que especifica el intervalo desde el que se devolverá el siguiente número de archivo gratuito. Especifique un 0 (predeterminado) para devolver un número de archivo en el intervalo 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 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. Cinco archivos se abren para la salida dentro del bucle, y algunos datos de muestra se escriben en cada uno.
Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex
