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
Related examples in the same category