PropertyTests : FileSearch « File Path « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. File Path
  3. FileSearch

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








Related examples in the same category

1.The FileSearch Object
2.The FoundFiles Collection Object
3.if a particular file exists, and False if not
4.searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.
5.Find a file
6.Find a file with wildcard character
7.File files with Application.FileSearch
8.Use Application.FileSearch to find files