Execute 方法

开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数。

expression.Execute(SortBy, SortOrder, AlwaysAccurate)

expression 必需。该表达式返回一个 FileSearch 对象。

SortBy MsoSortBy 类型，可选。返回的文件的排序方法。

MsoSortBy 可以为下列 MsoSortBy 常量之一。

msoSortByFileName 默认值

msoSortByFileType

msoSortByLastModified

msoSortByNone

msoSortBySize

SortOrder MsoSortOrder 类型，可选。返回的文件排序次序。

MsoSortOrder 可以为下列 MsoSortOrder 常量之一。

msoSortOrderAscending 默认值

msoSortOrderDescending

AlwaysAccurate Boolean 类型，可选。设置为 True 使文件搜索包括上次更新文件索引以来添加、修改或删除的文件。默认值为 True。

对于命令栏对象，运行指定给特定命令栏控件的过程或内置命令。对于自定义控件，使用 OnAction 属性指定要运行的过程。

对于 msoFileDialogOpen 或 msoFileDialogSaveAs 类型的 FileDialog 对象，在调用 Show 方法后执行用户操作。

expression.Execute

expression 必需。该表达式返回上面对象之一。

本示例在 My Documents 文件夹中搜索以扩展名 ".doc" 结尾的所有文件，然后显示找到的每个文件的位置和名称。本示例还以字母升序排序返回的文件名称。

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "*.doc"
    If .Execute(SortBy:=msoSortbyFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

本 Microsoft Excel 示例创建一个命令栏，然后向其添加内置命令栏按钮控件。该按钮执行 Excel AutoSum 函数。本示例使用 Execute 方法在显示命令栏时计算选定单元格区域的总计。

Dim cbrCustBar As CommandBar
Dim ctlAutoSum As CommandBarButton
Set cbrCustBar = CommandBars.Add("Custom")
Set ctlAutoSum = cbrCustBar.Controls _
    .Add(msoControlButton, CommandBars("Standard") _
    .Controls("AutoSum").Id)
cbrCustBar.Visible = True
ctlAutoSum.Execute