Nota
A função, método, objeto ou propriedade descrita neste tópico está 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 inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.
Devolve um Valor Longo representando o tamanho, em bytes, de um ficheiro aberto com a instrução Abrir .
Sintaxe
LOF(filenumber)
O argumento filenumbernecessário é um Número Inteiro que contém um número de ficheiro válido.
Nota
Utilize a função FileLen para obter o comprimento de um ficheiro que não está aberto.
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 utiliza a função LOF para determinar o tamanho de um ficheiro aberto. Este exemplo pressupõe que TESTFILE se trata de um ficheiro de texto que contém dados de exemplo.
Dim FileLength
Open "TESTFILE" For Input As #1 ' Open file.
FileLength = LOF(1) ' Get length of file.
Close #1 ' Close file.