VBA/Excel/Access/Word/File Path/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