LOF

Descrição:

A função LOF em VBA é utilizada para obter o comprimento (em bytes) de um arquivo aberto em modo binário. Essa função é especialmente útil quando é necessário trabalhar com manipulação de arquivos, permitindo saber o tamanho do arquivo em bytes.
Exemplos:

Sub Exemplo1()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.txt" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo é: " & comprimento & " bytes"
End Sub
    

Neste exemplo, a função LOF é utilizada para obter o comprimento do arquivo “Arquivo.txt” em bytes.

Sub Exemplo2()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.bin" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo binário é: " & comprimento & " bytes"
End Sub
    

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo binário em bytes.

Sub Exemplo3()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.docx" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo Word é: " & comprimento & " bytes"
End Sub
    

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo Word em bytes.

Sub Exemplo4()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.xlsx" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo Excel é: " & comprimento & " bytes"
End Sub
    

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo Excel em bytes.

Sub Exemplo5()
    Dim comprimento As Long
    Open "Caminho\do\Arquivo.png" For Binary As #1
    comprimento = LOF(1)
    Close #1
    MsgBox "O comprimento do arquivo PNG é: " & comprimento & " bytes"
End Sub
    

Neste exemplo, a função LOF é utilizada para obter o comprimento de um arquivo de imagem PNG em bytes.