SearchScope 对象
优质
小牛编辑
127浏览
2023-12-01
对应于可使用 FileSearch 对象搜索的文件夹树的类型。例如,该计算机上的本地驱动器表示一个搜索范围。网络文件夹和 Microsoft Outlook 文件夹也可能是可用的独立搜索范围。每个 SearchScope 对象包含一个 ScopeFolder 对象,对应于搜索范围的根文件夹。
使用 SearchScope 对象
使用 SearchScopes 集合的 Item 方法返回 SearchScope 对象,例如:
Dim ss As SearchScope
Set ss = Application.FileSearch.SearchScopes.Item(1)
最终,SearchScope 对象要提供对可添加到 SearchFolders 集合的 ScopeFolder 对象的访问。有关演示如何实现的示例,请参阅 SearchFolders 集合的主题。
请参阅 ScopeFolder 对象的主题查阅如何从 SearchScope 对象返回 ScopeFolder 对象的简单示例。
本示例显示所有当前可用的 SearchScope 对象。
Sub DisplayAvailableScopes()
'Declare a variable that references a
'SearchScope object.
Dim ss As SearchScope
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Loop through the SearchScopes collection.
For Each ss In .SearchScopes
Select Case ss.Type
Case msoSearchInMyComputer
MsgBox "My Computer is an available search scope."
Case msoSearchInMyNetworkPlaces
MsgBox "My Network Places is an available search scope."
Case msoSearchInOutlook
MsgBox "Outlook is an available search scope."
Case msoSearchInCustom
MsgBox "A custom search scope is available."
Case Else
MsgBox "Can't determine search scope."
End Select
Next ss
End With
End Sub
SearchScopes SearchScope ScopeFolder |