Office VBA教程:ScopeFolder对象

   
多个对象
ScopeFolder
ScopeFolders

对应于一个可搜索的文件夹。ScopeFolder对象将用于 SearchFolders集合。SearchFolders集合定义使用 FileSearch对象时搜索的文件夹。如果要搜索指定文件夹,可以使用 SearchScope对象和 ScopeFolders集合的属性和方法检索 ScopeFolder对象并添加到 SearchFolders集合。

使用 ScopeFolder对象

使用 SearchScope对象的 ScopeFolder属性返回搜索范围的根 ScopeFolder对象,例如:


Set sf = Application.FileSearch.SearchScopes.Item(1).ScopeFolder

使用 ScopeFolders集合的 Item方法返回根 ScopeFolder对象的子文件夹,例如:


Set sf = Application.FileSearch.SearchScopes.Item(1).ScopeFolder.ScopeFolders.Item(1)

使用 SearchFolders集合的 Item方法返回下次调用 FileSearch对象的 Execute方法时将要搜索的文件夹,例如:


Set sf = Application.FileSearch.SearchFolders.Item(1)

每个 ScopeFolder对象中具有一个包含父 ScopeFolder对象的子文件夹的 ScopeFolders集合。在 ScopeFolders集合中循环并返回所有较低级别的 ScopeFolder对象,可以浏览搜索范围(例如,所有驱动器)的整个文件夹结构。没有子文件夹的 ScopeFolder对象包含一个空 ScopeFolders集合。

有关演示如何在搜索范围的所有 ScopeFolder对象中循环的示例,请参阅SearchFolders集合的主题。

可以使用 SearchFolders集合的 Add方法向 SearchFolders集合中添加 ScopeFolder对象,但是使用要添加的 ScopeFolder对象的 AddToSearchFolders方法更为简便,因为对于所有搜索只有一个 SearchFolders集合。

有关演示如何向 SearchFolders集合中添加 ScopeFolder对象的示例,请参阅SearchFolders集合的主题。

本示例显示“我的电脑”中每个目录的根路径。为了检索该信息,本示例首先获得“我的电脑”根目录下的 ScopeFolder对象。该 ScopeFolder 的路径将总是 "*"。对于所有 ScopeFolder对象,根对象包含一个 ScopeFolders集合。本示例在该 ScopeFolders集合中循环,并显示其中每个 ScopeFolder对象的路径。这些 ScopeFolder对象的路径将为 "A:\"、"C:\" 等等。


Sub DisplayRootScopeFolders()
    'Declare variables that reference a
    'SearchScope and a ScopeFolder object.
    Dim ss As SearchScope
    Dim sf As ScopeFolder
    'Use a With...End With block to reference the
    'FileSearch object.
    With Application.FileSearch
        'Loop through the SearchScopes collection
        'and display all of the root ScopeFolders collections in
        'the My Computer scope.
        For Each ss In .SearchScopes
            Select Case ss.Type
                Case msoSearchInMyComputer
                    'Loop through each ScopeFolder object in
                    'the ScopeFolders collection of the
                    'SearchScope object and display the path.
                    For Each sf In ss.ScopeFolder.ScopeFolders
                        MsgBox "ScopeFolder object's path: " & sf.Path
                    Next sf
                Case Else
            End Select
        Next
    End With
End Sub

上页:Office VBA教程:PropertyTests集合对象 下页:Office VBA教程:ScopeFolders集合

Office VBA教程:ScopeFolder对象

Office VBA教程:ScopeFolders集合 Office VBA教程:Script对象
Office VBA教程:Scripts集合对象 Office VBA教程:SearchFolders集合
Office VBA教程:SearchScope对象 Office VBA教程:SearchScopes集合
Office VBA教程:Signature对象 Office VBA教程:SignatureSet集合
Office VBA教程:WebPageFont对象 Office VBA教程:WebPageFonts集合对象
Office VBA教程:New对象 Office VBA教程:ActionControl属性
Office VBA教程:ActiveMenuBar属性 Office VBA教程:AdaptiveMenu属性
Office VBA教程:AdaptiveMenus属性 Office VBA教程:AllowMultiSelect属性
Office VBA教程:Animation属性 Office VBA教程:Application属性
Office VBA教程:AssistWithAlerts属性 Office VBA教程:AssistWithHelp属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号