Office VBA教程:FileType属性

返回或设置文件查找过程中要搜索的文件类型。MsoFileType 类型,可读写。

MsoFileType 可为以下 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

expression.FileType

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

常量 msoFileTypeOfficeFiles 包含以下任意扩展名的文件:*.doc、*.xls、*.ppt、*.pps、* obd、*.mdb、*.mpd、*.dot、*.xlt、*.pot、*.obt、*.htm 或 *.html。

VBA示例

本示例可实现的功能为:搜索位于“My Documents”文件夹中的所有“活页夹”文件,然后在消息框中显示找到的每个文件的文件名及其所在位置。


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

上页:Office VBA教程:Files属性 下页:Office VBA教程:FileTypes属性

Office VBA教程:FileType属性

Office VBA教程:FileTypes属性 Office VBA教程:FilterIndex属性
Office VBA教程:Filters属性 Office VBA教程:FixedWidthFont属性
Office VBA教程:FixedWidthFontSize属性 Office VBA教程:FoundFiles属性
Office VBA教程:GuessHelp属性 Office VBA教程:Guid属性
Office VBA教程:Heading属性 Office VBA教程:Height属性
Office VBA教程:HelpContextId属性 Office VBA教程:HelpFile属性
Office VBA教程:HighPriorityTips属性 Office VBA教程:HTMLProjectItems属性
Office VBA教程:HyperlinkType属性 Office VBA教程:Icon属性
Office VBA教程:Id属性 Office VBA教程:Index属性
Office VBA教程:InitialFileName属性 Office VBA教程:InitialView属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号