Salut Arthur B!
Je m'appelle Leslie. J'ai travaillé au Support Technique au siège de MEGA à Paris jusqu'au décembre dernier. J'étais la spécialiste des API et ce sera mon plaisir de t'aider. Je suis maintenant Consultante Produit pour MEGA (j'interviens au près du client pour les projets et initiatives diverses). J'adore ce produit et cette compagnie. J'ai de la chance de travailler dans une boite avec une tel ambiance, comme MEGA.
D'abord, l'attribut de l'adresse pour les références externes de type fichier s'appelle "XRefAddress".
Donc ton script sera:
Code :
- Dim oMegaCurrentEnvironment As New MegaCurrentEnv
- Dim oMegaRoot As MegaRoot
- Set oMegaRoot = oMegaCurrentEnvironment.GetRoot
- Dim oLogi, ref As MegaObject
- For Each ref In oMegaRoot.GetCollection("External Reference" )
- MsgBox (ref.GetProp("XRefAddress", "display" ))
- Next
|
Si tu veux modifier la valeur de cette propriété tu pourras utiliser la fonction "SetProp".
Par curiosité, ça fait combien de temps que tu travailles dans MEGA? Pour ton travail ou à l'école?
à bientôt,
Leslie