The VBA code that check size of file in bytes ! (1 Viewer)

[nhtuan]

Private Sub Command0_Click()
'This will return the size of your file in a MsgBox prompt
MsgBox "The attachment size is " & Format(FileLen("C:\Users\Documents\Data\myFile.docx") / 1024 / 1024, "0.00 Mb")
End Sub

 

[KitaYama]

You can also use FSO

    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Debug.Print FSO.GetFile("C:\Work\test.pdf").Size

 

[nhtuan]

You can also use FSO

    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Debug.Print FSO.GetFile("C:\Work\test.pdf").Size

Thank you for sharing.