Nota: A função, método, objeto ou propriedade descrita neste tópico está desativada se o Serviço Microsoft Jet Expression estiver em execução no 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" na Ajuda.
Devolve um Número Inteiro que representa o número de ficheiro seguinte disponível para utilização pela instrução Open .
Sintaxe
FreeFile[(rangenumber)]
O argumento rangenumber opcional é uma Variante que especifica o intervalo a partir do qual o próximo número de ficheiro gratuito será devolvido. Especifique um 0 (predefinição) para devolver um número de ficheiro no intervalo 1 a 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 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 número de ficheiro disponível seguinte. São abertos cinco ficheiros para saída dentro do ciclo e alguns dados de exemplo são escritos 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
