OlderFile Property
Returns or sets a Long that determines the number of days that a file must exist in a Web site (without being modified) before it is classified as older. Once a file is classified as older, it appears in the Older Files view in the Reports view. Read/write.
expression.OlderFile
*expression * Required. An expression that returns an Application object.
Remarks
Use the RecentFile property to return or set the number of days that a new or recently modified file shows up in the Recently Added Files list in the Reports view.
Example
The following example prompts the user to enter a value that specifies the number of days a file must exist before it is classified as older. The subroutine SetOldVal prompts the user for input, performs a validation on the input data, converts it to the correct type, and sets the OlderFile property to the new value. If the value is of an incorrect type, an error message is displayed to the user.
Sub FPOldFile()
'Sets a value that determines how old a file is
Dim objApp As FrontPage.Application
Set objApp = FrontPage.Application
Call SetOldVal(objApp)
End Sub
Sub SetOldVal(ByRef objApp As Application)
'Sets the value that determines how old a file is
Dim varNum As Variant
Dim lngNum As Long
'Prompt the user to enter a value
varNum = InputBox("Enter the number of days a file can exist " &
_ "before it is classified as old.")
'Check to see that the value is of the correct type
If IsNumeric(varNum) Then
'If it's numeric, convert it to Long
lngNum = CLng(varNum)
'Set the OlderFIle value to the new value
objApp.OlderFile = lngNum
'Display the new setting information to the user
MsgBox "The OlderFile value was set correctly." & vbCr & _
"The number of days after which a file becomes old is " _ & lngNum & "."
Else
'Otherwise, display an error message to the user
MsgBox "The input value was incorrect.", vbCritical
End If
End Sub
Applies to | Application Object
See Also | RecentFile Property