Função FreeFile

Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" em Ajuda.

Devolve um Número Inteiro que representa o próximo número de ficheiro disponível para utilização pela declaração Open.

Sintaxe

FreeFile [ (número de gama) ]

O argumento de número de gama opcional é uma Variante que especifica o intervalo a partir do qual o próximo número de ficheiro gratuito 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 o FreeFile para fornecer um número de ficheiro que ainda não está a ser utilizado.

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

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

Precisa de mais ajuda?

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×