Compartir vía


FileSystem.FreeFile Método

Definición

Devuelve un valor de tipo Integer que representa el siguiente número de archivo disponible para la función FileOpen.

public:
 static int FreeFile();
public static int FreeFile ();
static member FreeFile : unit -> int
Public Function FreeFile () As Integer

Devoluciones

Valor entero que representa el siguiente número de archivo disponible para la función FileOpen.

Excepciones

Hay más de 255 archivos en uso.

Ejemplos

En este ejemplo se usa la FreeFile función para devolver el siguiente número de archivo disponible. Se abren cinco archivos para la salida dentro del bucle y se escriben algunos datos de ejemplo en cada uno.

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

Comentarios

Use FreeFile para proporcionar un número de archivo que aún no se esté usando.

Se aplica a

Consulte también