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