返回 String 类型的值,该值代表当前文档的文件大小(以千字节为单位)。只读。
expression.fileSize
expression 必选。返回 DispFPHTMLDocument 对象的表达式。
下列示例显示当前文档的文件名和文件大小。
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