How do I go through all content center levels?

[Anonymous]

Hi!

I need to go through all content center levels, how can I do this recursively?

I need to get the family name (DisplayName).

For example:

Thank you!

[bradeneuropeArthur]

Hi,

In VBA or Vb.net?

[bradeneuropeArthur]

for VBA the following will do:

 Public Sub LoopReadContentCenterTree()

        Dim oContentCenter As ContentCenter
        Set oContentCenter = ThisApplication.ContentCenter

        Dim a As ContentTreeViewNode
        Set a = oContentCenter.TreeViewTopNode

        Call LoopGetFromTreeView(a)
    End Sub

Private Sub LoopGetFromTreeView(oContentTreeViewNode As ContentTreeViewNode)

        Dim oContentTreeViewNodeLoop As ContentTreeViewNode
        'Dim strPath As String = b.DisplayName
        Dim strPath As String
        strPath = oContentTreeViewNode.FullTreeViewPath
        Dim strFam As String
        strFam = oContentTreeViewNode.DisplayName
        Dim strExport As String
        strExport = oContentTreeViewNode.DisplayName

        Dim oContentFamily As ContentFamily
        For Each oContentFamily In oContentTreeViewNode.Families
Debug.Print oContentFamily.DisplayName

        Next

        For Each oContentTreeViewNodeLoop In oContentTreeViewNode.ChildNodes

          Call LoopGetFromTreeView(oContentTreeViewNodeLoop)

        Next
    End Sub

[Anonymous]

I'm sorry, I just forgot, I'm programming in C #.

I believe that the example you have shown will be useful.

thank you.

[bradeneuropeArthur · Accepted solution]

I have it in VB.net

but vba can 1to 1 copied.

I assume this will be no problem for you.

I have translated it to vba because I thought that you preferred that.

if you need in in vb.net let me know...

Here you have it in VB.net:

 Public Sub LoopReadContentCenterTree()

        Dim oContentCenter As ContentCenter
       	oContentCenter = ThisApplication.ContentCenter

        Dim a As ContentTreeViewNode
        a = oContentCenter.TreeViewTopNode

        LoopGetFromTreeView(a)
    End Sub

Private Sub LoopGetFromTreeView(oContentTreeViewNode As ContentTreeViewNode)

        Dim oContentTreeViewNodeLoop As ContentTreeViewNode

        Dim strPath As String
        strPath = oContentTreeViewNode.FullTreeViewPath
        Dim strFam As String
        strFam = oContentTreeViewNode.DisplayName
        Dim strExport As String
        strExport = oContentTreeViewNode.DisplayName

        Dim oContentFamily As ContentFamily
        
        For Each oContentFamily In oContentTreeViewNode.Families

	Debug.Print oContentFamily.DisplayName

        Next

        For Each oContentTreeViewNodeLoop In oContentTreeViewNode.ChildNodes

        LoopGetFromTreeView(oContentTreeViewNodeLoop)

        Next
 End Sub