Compartir a través de


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

IOException

67

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)

Vea también

Referencia

FileOpen (Función)

IOException

Otros recursos

Escribir en archivos en Visual Basic