[AndyD]

По-моему проще это сделать с помощью UtilElements

void exportForms (UtilElementType elementType, UtilEntryLevel entryLevel, FilePath filePath)
{
    TreeNode    tn;
    UtilElements      utilElements;
// для форм elementType = UtilElementType::Form
    ;
    while select utilElements 
          where utilElements.recordType == elementType &&
                utilElements.utilLevel == entryLevel
    {
         tn = xUtilElements::getNode(utilElements);
         tn.treeNodeExport(FilePath + "\\" + tn.treeNodeName() + "_" + enum2str(tn.applObjectLayer()) + ".xpo");
         tn.treeNodeRelease();
    }
}