Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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