For this purpose you can use the [b]SearchConstraints[/b] object and the [b]Search[/b]-function of the folder object.
Example:
[code]
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
[/code]
support@weisang.com
