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>