FlexPro Forum – Discuss Your Topic!

For this purpose you can use the SearchConstraints object and the Search-function of the folder object.

Example:

    Dim oSearch As SearchConstraints
    
    Set oSearch = New SearchConstraints
    
    With oSearch.Add
        .SearchItem = fpSearchItemName
        .CompareOperation = fpSearchCompareOpTextIs
        .SearchValue = "FormulaName"
        .BooleanOperation = fpSearchBooleanOpAnd
    End With
    
    With oSearch.Add
        .SearchItem = fpSearchItemObjectType
        .CompareOperation = fpSearchCompareOpObjectTypeIsKindOf
        .SearchValue = fpObjectTypeFormula
    End With
    
    Dim oObjects, oObject
    Dim oFml As Formula
    
    Set oObjects = ActiveDatabase.RootFolder.Search(True, oSearch)
    Dim strContent As String
    
    For Each oObject In oObjects
        Set oFml = oObject
        strContent = oFml.Formula
        MsgBox strContent
    Next oObject

support@weisang.com