How to get the hierarchy of the individual objects from the Aliases

Hi All,



I have found a solution for the question I have raised.



Sub GetNextAlias(AliasObject,Parent)

    Dim iteratorProperties

    Dim iteratorProp

 

    Set iteratorProperties = aqObject.GetProperties(AliasObject)

    

    While iteratorProperties.HasNext  

        Set iteratorProp = iteratorProperties.Next

        'ValueType 29 appears to correspond with other objects from the name mapping or alias trees

        If(iteratorProp.ValueType = 29) Then

        Log.AppendFolder(iteratorProp.Name)

       '' MsgBox(iteratorProp.Type)

         Hierarchy = Parent&"."&iteratorProp.Name

         Temp = "Var" & iteratorProp.Name &" = " & Hierarchy

         Call LogText(Temp)         

         Call GetNextAlias(aqObject.GetPropertyValue(AliasObject,iteratorProp.Name),Hierarchy)

        Log.PopLogFolder         

        End If

    Wend

   

End Sub

 

Sub test()

     Log.AppendFolder("Aliases")

     If(aqFile.Exists(sPath)) Then

     aqFile.Delete(sPath)

     End If

      

     Call GetNextAlias(Aliases.Sys,"Aliases.Sys")

     Log.PopLogFolder

End Sub



Regards,

Abdul

 

Hi Abdul,

 

Thanks for sharing the ready example with us!