FreeFile (Función)
Actualización: noviembre 2007
Devuelve un valor Integer que representa el siguiente número de archivo disponible para ser utilizado por la función FileOpen.
Public Function FreeFile() As Integer
Excepciones
Tipo de excepción |
Número de error |
Condición |
|---|---|---|
Hay más de 255 archivos en uso. |
Consulte la columna "Número de error" si está actualizando aplicaciones de Visual Basic 6.0 que utilizan el control de errores no estructurado. (Se puede comparar el número de error con respecto a Number (Propiedad, objeto Err)). Sin embargo, siempre que sea posible, se debe considerar la sustitución de dicho control de errores por Información general sobre el control estructurado de excepciones de Visual Basic.
Comentarios
FreeFile se utiliza para proporcionar un número de archivo que ya no esté en uso.
Ejemplo
En este ejemplo se utiliza la función FreeFile para devolver el siguiente número de archivo disponible. Se abren en el bucle cinco archivos para salida y se escriben en cada uno de ellos algunos datos de ejemplo.
Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
fileNumber = FreeFile()
FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
PrintLine(fileNumber, "This is a sample.")
FileClose(fileNumber)
Next
Notas para desarrolladores de dispositivos inteligentes
Esta función no es compatible.
Requisitos
Espacio de nombres:Microsoft.VisualBasic
**Módulo:**FileSystem
**Ensamblado:**Visual Basic Runtime Library (en Microsoft.VisualBasic.dll)