Sub SetPropTests()
Dim pt As PropertyTests
Dim I As Integer
Set pt = Application.fileSearch.PropertyTests
With pt
For I = .Count To 1 Step -1
.Add name:=" Last Modified", _
Condition:=msoConditionOnOrAfter, _
Value:=DateAdd("d", -7, Date)
Next I
End With
End Sub