Função EOF

Retorna um Inteiro que contém o valor boolianoTrue quando o final de um arquivo aberto para EntradaAleatória ou Sequencial foi atingido.

Sintaxe

EOF(filenumber)

O argumento de número de arquivo necessário é um Inteiro que contém qualquer número de arquivo válido.

Comentários

Use o EOF para evitar o erro gerado ao tentar obter a entrada após o final de um arquivo.

A função EOF retorna False até que o final do arquivo tenha sido atingido. Com arquivos abertos para acesso aleatório ou binário , o EOF retorna False até que a última instrução Get executada não consiga ler um registro inteiro.

Com arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função De entrada até que o EOF retorne True gera um erro. Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com Entrada ou use Get ao usar a função EOF . Com arquivos abertos para Saída, o EOF sempre retorna True.

Exemplo

Este exemplo usa a função EOF para detectar o fim de um arquivo. Este exemplo pressupõe que MYFILE seja um arquivo de texto com algumas linhas de texto.

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.