Mostrar tudo

Ocultar tudo

Devolve um Número Inteiro (tipo de dados Número inteiro: tipo de dados fundamental que contém números inteiros. Uma variável Número inteiro é armazenada como um número de 16 bits (2-bytes) que varia entre -32.768 e 32.767.) que representa o número de ficheiro (número de ficheiro: número utilizado na instrução Open para abrir um ficheiro. Utilize números de ficheiro no intervalo 1 - 255, inclusive, para ficheiros não acessíveis para outras aplicações. Utilize números de ficheiro no intervalo 256 - 511 para ficheiros acessíveis a partir de outras aplicações.) seguinte disponível para ser utilizado pela instrução Abrir.

Sintaxe

FreeFile[(númerodeintervalo)]

O argumento númerodeintervalo é uma Variante (tipo de dados Variante: tipo de dados predefinido para variáveis que não possuem caracteres de declaração de tipo quando uma instrução do tipo Def não está em vigor. Uma Variante pode armazenar dados numéricos, de cadeia, de data/hora, Nulo ou Vazio.) que especifica o intervalo com que o próximo número de ficheiro livre deve ser devolvido. Especifique um 0 (predefinido) para devolver um número de ficheiro no intervalo 1 – 255, inclusive. Especifique um 1 para devolver um número de ficheiro no intervalo 256 – 511.

Observações

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

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

Este exemplo utiliza a função FreeFile para devolver o número de ficheiro disponível seguinte. São abertos cinco ficheiros para exportação no ciclo e são escritos alguns dados de exemplo em cada um.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    ' Get unused file number.
    FileNumber = FreeFile
    ' Create file name.
    Open "TEST" & MyIndex For Output As #FileNumber
    ' Output text.
    Write #FileNumber, "This is a sample."
    ' Close file.
    Close #FileNumber
Next MyIndex