Office VBA教程:NewSearch方法

本主题中的某些内容可能不适用于某些语言。

将所有搜索条件重置为默认设置。

expression.NewSearch

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

说明

搜索条件的设置在应用程序的一个会话中将保持不变。每次更改搜索条件时可用此方法。此方法不会重新设置 LookIn属性的值。

VBA示例

本示例可实现的功能为:在开始新一轮搜索过程之前用 NewSearch方法重新设置默认的搜索条件。


With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "run"
    .TextOrProperty = "San*"
    .MatchAllWordForms = True
    .FileType = msoFileTypeAllFiles
    If .Execute() > 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

上页:Office VBA教程:Move方法 下页:Office VBA教程:Open方法

Office VBA教程:NewSearch方法

Office VBA教程:Open方法 Office VBA教程:PasteFace方法
Office VBA教程:RefreshDocument方法 Office VBA教程:RefreshProject方法
Office VBA教程:RefreshScopes方法 Office VBA教程:ReleaseFocus方法
Office VBA教程:Remove方法 Office VBA教程:RemoveItem方法
Office VBA教程:Reset方法 Office VBA教程:ResetFileList方法
Office VBA教程:ResetTips方法 Office VBA教程:SaveCopyAs方法
Office VBA教程:SetAvoidRectangle方法 Office VBA教程:SetFocus方法
Office VBA教程:SetSortOrder方法 Office VBA教程:Show方法
Office VBA教程:ShowPopup方法 Office VBA教程:StartWizard方法
Office VBA教程:Update方法 Office VBA教程:新增方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号