Gets the date and time when the SharedWorkspaceFile object was last modified. Read-only.

Syntax

expression.ModifiedDate

expression A variable that represents a SharedWorkspaceFile object.

Return Value
Variant

Example
The following example returns a list of shared workspace files whose date and time last modified is earlier than today.

Visual Basic for Applications 
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
ofv

See also: