var iItem, oObject; var oRoot = pMe.Root; var nChildCount = oRoot.GetChildCount(); for (iItem = 0; iItem < nChildCount; iItem++) { oObject = oRoot.GetChildByIndex(iItem); Pm.Debug(oObject.Name); }
Dim iItem, oObject, oRoot, nChildCount Set oRoot = pMe.Root nChildCount = oRoot.GetChildCount() For iItem = 0 To nChildCount - 1 Set oObject = oRoot.GetChildByIndex(iItem) Pm.Debug oObject.Name Next