The FileTypes and PropertyTests Collection Objects : FileTypes « File Path « VBA / Excel / Access / Word

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

 

Related examples in the same category