Compartilhar via


FileSystem.FreeFile Método

Definição

Retorna um valor Integer que representa o próximo número de arquivo disponível para uso pela função FileOpen.

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

Retornos

Um valor inteiro que representa o próximo número de arquivo disponível para uso pela função FileOpen.

Exceções

Mais de 255 arquivos estão em uso.

Exemplos

Este exemplo usa a FreeFile função para retornar o próximo número de arquivo disponível. Cinco arquivos são abertos para saída dentro do loop e alguns dados de exemplo são gravados em cada um.

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

Comentários

Use FreeFile para fornecer um número de arquivo que ainda não está sendo usado.

Aplica-se a

Confira também