fileSize 属性

返回 String 类型的值，该值代表当前文档的文件大小（以千字节为单位）。只读。

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