Compartilhar via


Função FreeFile

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

Public Function FreeFile() As Integer

Exceções

Tipo de exceção

Número de erro

Condição

IOException

67

Mais de 255 arquivos estão em uso.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

Use FreeFile para fornecer um número de arquivo que ainda não esteja em uso.

Exemplo

Este exemplo usa a função FreeFile para retornar o próximo número de arquivo disponível.Cinco arquivos foram abertos para saída dentro do loop, e alguns dados de exemplo são gravados em cada.

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

Anotações Developer Dispositivo Inteligente

Não há suporte para esta função.

Requisitos

Namespace: Microsoft.VisualBasic

**Módulo:**FileSystem

Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)

Consulte também

Referência

Função FileOpen

IOException

Outros recursos

Gravando em Arquivos no Visual Basic