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 |
|---|---|---|
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)