VBA Express : Word - Get filesize of document in kilobytes

Word

Get filesize of document in kilobytes

Ease of Use

Easy

Version tested with

2000, 2002

Submitted by:

MOS MASTER

Description:

The function will return the filesize of the specified document in kilobytes.

Discussion:

You have to determine the file size of some documents. This function will help you get that data in kilobytes.

Code:

instructions for use

			Option Explicit 
 
 ' \\ Test sub to return Filesize
Sub GetTheSize() 
    Dim sFilePath As String 
     
     ' \\ Build path to test file in same folder as this document
    sFilePath = ThisDocument.Path & "\Test Filesize.doc" 
     
     ' \\ Call function to return filesize
    MsgBox GetTheFileSize(sFilePath) & " Kb" 
End Sub 
 
 ' \\ This Function returns the Filesize in Kb
Public Function GetTheFileSize(sPath As String) As Long 
    Dim iChannel    As Integer 
     
     ' \\ Get free channel (file number)
    iChannel = FreeFile 
     
     ' \\ Input file by that channel (file number)
    Open sPath For Input As iChannel 
     
     ' \\ Return file size
    GetTheFileSize = Format((LOF(iChannel) / 1024), "#.0") 
     
End Function

How to use:

Open your Word document.
Press Alt + F11 to open VBE.
Insert-Module. (Insert -> module)
Paste the code there in the window at right. (F7)
Close VBE (Alt + Q or press the X in the top right hand corner).
Save the file.

Test the code:

From Word, press Alt + F8 to open the macro dialog box.
Select GetTheSize
Click Run.

Sample File:

Filesize.zip 17.02KB

Approved by mdmackillop

This entry has been viewed 61 times.