SearchSubFolders 属性

返回 Boolean 类型值，指出指定搜索的搜索范围是否包括所有文件夹的子文件夹。该属性由 AdvancedSearch 方法的 SearchSubfolders 参数决定，在初始化搜索时指定。只读。

expression  必选。该表达式返回 Search 对象。

说明

如果值为 True，则 Search 对象搜索指定筛选路径的所有子文件夹。

示例

以下示例所创建的 Search 对象包含用户“收件箱”中所有主题为“Office Christmas Party”的项目。参数 SearchSubFolders 指定为 True。

Sub SearchInboxFolder()
'Searches the Inbox

    Dim objSch As Search
    Const strF As String = _
        "urn:schemas:mailheader:subject = 'Office Christmas Party'"
    Const strS As String = "Inbox"
    Const strTag As String = "SubjectSearch"
    Set objSch = Application.AdvancedSearch(Scope:=strS, _
        Filter:=strF, SearchSubFolders:=True, Tag:=strTag)

End Sub

使用 AdvancedSearchComplete 事件过程显示搜索的结果。

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
    Dim objRsts As Results
    MsgBox "The search " & SearchObject.Tag & "has completed. The SearchSubFolders property " & _
        "was set to " & SearchObject.SearchSubFolders & "."
    Set objRsts = SearchObject.Results
    'Print out number in Results collection
    Debug.Print objRsts.Count
    'Print out each member of Results collection
    For Each Item In objRsts
        Debug.Print Item
    Next

End Sub