Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Long que representa o tamanho, em bytes, de um arquivo aberto usando a instrução Open .
Sintaxe
LOF( filenumber )
O número de arquivos necessárioargumento é um Inteiro que contém um número do arquivo válido .
Observação: Use a função FileLen para obter o comprimento de um arquivo que não está aberto.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função LOF para determinar o tamanho de um arquivo aberto. Este exemplo pressupõe que TESTFILE é um arquivo de texto que contém dados de exemplo.
Dim FileLengthOpen "TESTFILE" For Input As #1 ' Open file.FileLength = LOF(1) ' Get length of file.Close #1 ' Close file.
