lastModified 属性

       

返回 String 类型的值,该值代表当前文档上次修改的日期和时间。只读。

expression.lastModified

expression  必选。返回 DispFPHTMLDocument 的表达式。

示例

下列示例显示文件名及其上次修改的日期。

Sub GetLastModifiedDate()
'Returns the last modification date 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 date last modified.
    MsgBox "The file " & objDoc.nameProp & " was last modified on " & _
            objDoc.lastModified & "."

End Sub