Returns a String that represents the file size, in kilobytes, of the current document. Read-only.
expression.fileSize
expression Required. An expression that returns a DispFPHTMLDocument object.
The following example displays the name and file size of the current document.
Sub GetFileSize()
'Returns the file size of the current document
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Set objApp = FrontPage.Application
Set objDoc = objApp.ActiveDocument
'Display name of file and the file size.
MsgBox "The file size of " & objDoc.nameProp & " is " & _
objDoc.fileSize & " kb."
End Sub