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

The FileTypes and PropertyTests Collection Objects

Sub SetFileTypes()

    Dim ft As FileTypes

    Dim I As Integer

    Set ft = Application.fileSearch.FileTypes

    With ft

        .Add msoFileTypePowerPointPresentations

        .Add msoFileTypeExcelWorkbooks

        .Add msoFileTypeWordDocuments

    End With

End Sub