SharedWorkspaceTask.ModifiedDate 属性 (Office)

  • 项目

获取上次修改 SharedWorkspaceTask 对象的日期和时间。 只读。

注意

自 Microsoft Office 2010 开始，此对象或成员已弃用，不应再行使用。

语法

表达式。ModifiedDate

表达 一个代表 SharedWorkspaceTask 对象的变量。

返回值

Variant

示例

下面的示例将返回上次修改日期和时间早于今天的共享工作区文件的列表。

Dim swsFile As Office.SharedWorkspaceFile 
    Dim dtmMidnight As Date 
    Dim dtmFileDate As Date 
    Dim strOlderFiles As String 
    dtmMidnight = CDate(FormatDateTime(Now, vbShortDate) & " 12:00:00 am") 
    For Each swsFile In ActiveWorkbook.SharedWorkspace.Files 
        dtmFileDate = swsFile.ModifiedDate 
        If dtmFileDate < dtmMidnight Then 
            strOlderFiles = strOlderFiles & swsFile.URL & vbCrLf 
        End If 
    Next 
    MsgBox "Files not modified today: " & vbCrLf & strOlderFiles, _ 
        vbInformation + vbOKOnly, "Older Files" 
    Set swsFile = Nothing

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。