VBA/Excel/Access/Word/File Path/FileTypes

The FileTypes and PropertyTests Collection Objects

   <source lang="vb">

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

</source>