Generate the published path of Structure Groups and compare them using TOM API in VBScript

Question

I need to generate the published path of Structure Groups and compare them. I am not able to find any function for the same in TOM API for VBScript.

I am using objSG.Directory, but that gives me only the immediate directory. How can I get the full published path of a structure group?

Function GetDirectoryPath(objSG)
    path = ""
    Do
        path = path + objSG.Directory
        objSG = objSG.OrganizationalItem
    Loop Until objSG.Directory <> "/"
    GetDirectoryPath = path
End Function

Answer 1

You can recursively call objSG.OrganizationalItem, till it no longer returns a Structure Group, but a Publication (then you know you have reached the top).

You will have to build the path via this (expensive) method yourself, so you might want to consider rewriting the entire function in a TBB using the TOM.NET API. You still have to do the same process, but it is less expensive due to lazy loading on the TOM.NET API.

Answer 2

Here is the pseudocode:

// initial item   
path = organizationalItem.title;  
 // Stop traversing up when parent is publication  
while (!organizationalItem.IsRootOrganizationalItem)  
// this takes one level up to the containing organizational item
organizationalItem = organizationalItem.OrganizationalItem;  
path = organizationalItem.title + '/' +  path;