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