Propiedad FileTypes
Devuelve una colección FileTypes.
expresión.FileTypes
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente busca todos los archivos de Microsoft Excel y HTML de la unidad C:\.
Sub SearchForFiles()
'Declare a variable to act as a generic counter.
Dim lngCount As Long
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Clear all the parameters of the previous searches.
'This method doesn't clear the LookIn property or
'the SearchFolders collection.
.NewSearch
'Setting the FileType property clears the
'FileTypes collection and sets the first
'item in the collection to the file type
'defined by the FileType property.
.FileType = msoFileTypeWebPages
'Add a second item to the FileTypes collection.
.FileTypes.Add msoFileTypeExcelWorkbooks
'Display the number of FileTypes objects in the collection.
MsgBox "You are about to search for " & .FileTypes.Count & _
" file types."
'Set up the search to look in all subfolders on the C:\ drive.
.LookIn = "C:\"
.SearchSubFolders = True
'Execute the search and test to see if any files
'were found.
If .Execute <> 0 Then
'Display the number of files found.
MsgBox "Files found: " & .FoundFiles.Count
'Loop through the list of found files and
'display the path of each one in a message box.
For lngCount = 1 To .FoundFiles.Count
If MsgBox(.FoundFiles.Item(lngCount), vbOKCancel, _
"Found files") = vbCancel Then
'Break out of the loop
lngCount = .FoundFiles.Count
End If
Next lngCount
Else
MsgBox "No files found."
End If
End With
End Sub