FileSystem.FreeFile Método

Definição

Espaço de Nomes:
Microsoft.VisualBasic
Assemblagem:
Microsoft.VisualBasic.dll

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

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

Devoluções

Int32

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

Exceções

IOException

Mais de 255 ficheiros estão em uso.

Exemplos

Este exemplo utiliza a FreeFile função para devolver o próximo número de ficheiro disponível. São abertos cinco ficheiros para saída dentro do ciclo e alguns dados de exemplo são escritos 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

Observações

Use FreeFile para fornecer um número de ficheiro que ainda não esteja a ser usado.

Aplica-se a

Ver também