VBA/Excel/Access/Word/File Path/FileLen

Determining a file size: displays the size, in bytes, of the Excel executable file. It finds this value by using the FileLen function.

 
Sub GetFileSize()
    Dim TheFile As String
    TheFile = "c:\MSOFFICE\EXCEL\EXCEL.EXE"
    MsgBox FileLen(TheFile)
End Sub