Recherche d’une classe via son arborescence dans un modèle OO

Dim path, modl

‘ Si vous utilisez PowerDesigner remplacer l’extension du modèle pour « .moo »

path = EvaluateNamedPath(« %_EXAMPLES%demo.moo »)

Set modl = openmodel(path)

if not modl is nothing then

‘ Recherche la classe par le nom du répertoire

Dim clss

set clss = modl.FindChildByPath(« Peripheral Packageprinter », Cls_Class)

if not clss is nothing then

output « Trouvé la  » & cstr(clss)

end if

end if