Dim path, modl
‘ Si vous utilisez PowerDesigner modifier l’extension « .mpm » pour « .bpm »
path = EvaluateNamedPath(« %_EXAMPLES%BPMN20.mpm »)
Set modl = openmodel(path)
if not modl is nothing then
Dim found, last
set last = nothing
‘ Recherche de façon récursive tous les objets de type « Sequence Flow » avec le code= »Flux_1″
‘ Si vous utilisez PowerDesigner chercher « Flow_1 » au lieu de « Flux_1 »
set found = modl.FindChildByCode(« Flux_1 », Cls_Flow, « Sequence Flow », last)
while (not found is nothing)
output « Trouvé un lien entre l’objet parent » & cstr(found.Parent) & » et l’objet enfant Flux_1″
set last = found
set found = modl.FindChildByCode(« Flux_1 », Cls_Flow, « Sequence Flow », last)
wend
end if