Objeto de colección PropertyTests

FileSearch PropertyTests (PropertyTest)
FoundFiles

Colección de objetos PropertyTest que representa todos los criterios de búsqueda de una búsqueda de archivos. Los criterios de búsqueda se muestran en el cuadro de diálogo Búsqueda avanzada (menú Archivo, comando Abrir, botón Avanzada).

Uso de la colección PropertyTests

Utilice la propiedad PropertyTests para devolver la colección PropertyTests. El siguiente ejemplo muestra el número de criterios de búsqueda avanzada que se utilizarán en una búsqueda de archivos.

Application.FileSearch.PropertyTests.Count

Utilice el método Add para agregar un nuevo objeto PropertyTest a la colección PropertyTests. El siguiente ejemplo agrega dos pruebas de propiedad a los criterios de búsqueda. El primer criterio especifica que los archivos encontrados pueden ser archivos de cualquier tipo y el segundo criterio especifica que los archivos deben haber sido modificados entre el 1 de enero y el 30 de junio de 1996. El ejemplo muestra el número de archivos encontrados y el nombre de cada archivo en un cuadro de mensaje.

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

Utilice PropertyTests(index), donde index es el número de índice, para devolver un objeto PropertyTest. El siguiente ejemplo muestra todos los criterios de búsqueda de la primera prueba de propiedades de la colección 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