Propiedad FileType
Devuelve o establece el tipo de archivo que buscar durante una búsqueda de archivos. MsoFileType de Lectura/Escritura.
| MsoFileType puede ser una de estas constantes de MsoFileType. |
| msoFileTypeAllFiles |
| msoFileTypeBinders |
| msoFileTypeCalendarItem |
| msoFileTypeContactItem |
| msoFileTypeCustom |
| msoFileTypeDatabases |
| msoFileTypeDataConnectionFiles |
| msoFileTypeDesignerFiles |
| msoFileTypeDocumentImagingFiles |
| msoFileTypeExcelWorkbooks |
| msoFileTypeJournalItem |
| msoFileTypeMailItem |
| msoFileTypeNoteItem |
| msoFileTypeOfficeFiles |
| msoFileTypeOutlookItems |
| msoFileTypePhotoDrawFiles |
| msoFileTypePowerPointPresentations |
| msoFileTypeProjectFiles |
| msoFileTypePublisherFiles |
| msoFileTypeTaskItem |
| msoFileTypeTemplates |
| msoFileTypeVisioFiles |
| msoFileTypeWebPages |
| msoFileTypeWordDocuments |
expresión.FileType
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Comentarios
La constante msoFileTypeOfficeFiles incluye todos los archivos que tienen una de las siguientes extensiones: *.doc, *.xls, *.ppt, *.pps, *.obd, *.mdb, *.mpd, *.dot, *.xlt, *.pot, *.obt, *.htm, or *.html.
Ejemplo
Este ejemplo busca todos los archivos de Cuaderno ubicados en la carpeta My Documents. El ejemplo muestra en un cuadro de mensaje con el nombre y la ubicación de cada archivo encontrado.
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileType = msoFileTypeBinders
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" Binder file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Binder files found."
End If
End With