Nota
A função, método, objeto ou propriedade descrita neste tópico será 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 não seguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Devolve um Número Inteiro que contém o valor Booleano Verdadeiro quando for atingido o fim de um ficheiro aberto para EntradaAleatória ou sequencial.
Sintaxe
EOF(número de ficheiro)
O argumento de número de ficheironecessário é um número inteiro que contém qualquer número de ficheiro válido.
Observações
Utilize EOF para evitar o erro gerado ao tentar obter entradas após o fim de um ficheiro.
A função EOF devolve Falso até se chegar ao fim do ficheiro. Com arquivos abertos para acesso aleatório ou binário , 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 Input até que EOF retorne True gera um erro. Utilize as funções LOF e LOC em vez de EOF ao ler ficheiros binários com a função Input ou utilize Obter ao utilizar a função EOF. Com os ficheiros abertos para Saída, EOF devolve sempre o valor Verdadeiro.
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 usa a função EOF para detectar o fim de um arquivo. Este exemplo pressupõe que MYFILE se trata de um ficheiro de texto com algumas linhas de texto.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1