VB: Property Get PageBases As PageBases
C++: PageBases PageBases
C#: PageBases PageBases
Sub Folder_PageBases() Dim app As Origin.IOApplication Dim fds As Origin.Folders Dim fd As Origin.Folder Dim fdRoot As Origin.Folder app = New Origin.ApplicationSI fdRoot = app.RootFolder fds = fdRoot.Folders() 'get all sub folders fd = fds.Item(0) 'get the first sub folder MsgBox("The first folder has " + fd.PageBases.Count.ToString() + " pages") End Sub
8.0SR2