Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

PropertyTests

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