Powerd911 – Numéro #1 au Canada

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

 

Laisser un commentaire