Office VBA教程:PropertyTests集合对象

FileSearch
PropertyTests (PropertyTest)
FoundFiles

代表一个文件搜索条件。搜索条件列在“查找”对话框中(单击“文件”菜单中的“打开”命令,然后单击“查找”按钮)。PropertyTest对象是PropertyTests集合中的成员。

使用 PropertyTest对象

用 PropertyTests属性可返回一个 PropertyTests对象。以下示例显示查找单个文件的“查找”的搜索条件数。


Application.FileSearch.PropertyTests.Count

Add方法向 PropertyTests集合中添加一个新的 PropertyTest对象。以下示例向搜索条件中添加两个属性测试。第一个条件指定查找任意类型的文件,第二个条件指定该文件应是在 1996 年 1 月 1 日至 1996 年 6 月 30 日之间修改的。然后,在消息框中显示找到的文件数和每个文件的名称。


Set fs = Application.FileSearch
fs.NewSearch
 With fs.PropertyTests
    .Add Name:="Files of Type", _
        Condition:=msoConditionFileTypeAllFiles, _
        Connector:=msoConnectorOr
    .Add Name:="Last Modified", _
        Condition:=msoConditionAnytimeBetween, _
        Value:="1/1/96", SecondValue:="6/1/96", _
        Connector:=msoConnectorAnd
 End With
    If fs.Execute() > 0 Then
        MsgBox "There were " & fs.FoundFiles.Count & _
            " file(s) found."
        For i = 1 To fs.FoundFiles.Count
            MsgBox fs.FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If

用 PropertyTests(index) 可返回一个 PropertyTest对象;此处 index 是该对象的索引号。以下示例显示 PropertyTests集合中第一个属性测试的所有搜索条件。


With Application.FileSearch.PropertyTests(1)
myString = "This is the search criteria: " _
    & " The name is: " & .Name & ". The condition is: " _
    & .Condition
If .Value <> "" Then
    myString = myString & ". The value is: " & .Value
    If .SecondValue <> "" Then
        myString = myString _
            & ". The second value is: " _
            & .SecondValue & ", and the connector is" _
            & .Connector
    End If
End If
MsgBox myString
End With

上页:Office VBA教程:PropertyTest对象 下页:Office VBA教程:ScopeFolder对象

Office VBA教程:PropertyTests集合对象

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号