Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Inteiro que representa o próximo número do arquivo disponível para uso pela instrução Open .
Sintaxe
FreeFile[(rangenumber)]
O argumento de número de intervalo opcional é uma Variant que especifica o intervalo do qual o próximo número de arquivo gratuito deve ser retornado. Especifique um 0 (padrão) para retornar um número de arquivo no intervalo 1 a 255, inclusive. Especifique um 1 para retornar um número de arquivo no intervalo 256 – 511.
Comentários
Use o FreeFile para fornecer um número de arquivo que ainda não está em uso.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função FreeFile 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 deles.
Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex
