SPCFolder.List

This property is read only.

SVB Example

Moving the contents of one folder to another:

Sub Main
    Dim oOM As ObjectManager

    'Reconnect into Enterprise ObjectManager
    Set oOM = New ObjectManager
    oOM.Reconnect Application

    'The folder whose content will be moved
    Dim MyFolder As SPCFolder
    Set MyFolder = oOM.FindFolder("/Blake's Materials")
    If (MyFolder Is Nothing) Then
        MsgBox "Can't find the personal folder"
        Exit All
    End If

    'The folder to move the content to
    Dim CompanyFolder As SPCFolder
    Set CompanyFolder = oOM.FindFolder("/Company Materials")
    If (CompanyFolder Is Nothing) Then
        MsgBox "Can't find the company folder"
        Exit All
    End If

    'Retrieve the folder's content
    Dim MyContent
    Set MyContent = MyFolder.List(swcBinaryDocument Or swcCharacteristic Or swcDashboard Or swcFolder Or swcLabel Or swcMonitor Or swcProfile Or swcStandardProfileSequence Or swcTaskset)

    'Start moving the content
    Dim moveInfo As New FolderUpdateInfo
    moveInfo.AuditLogReason = "Moving my content to Company folder"
    Dim i As Long
    oOM.Transaction.Start
    On Error GoTo rollback
    For i = LBound(MyContent) To UBound(MyContent)
        If (TypeName(MyContent(i)) = "SPCFolder") Then
            'NOTE: COMMENT OUT THE FOLLOWING LINE IF YOU DON'T WANT TO MOVE SUBFOLDERS
            'Also, it should be noted that DetachEx/AttachEx do not work with SPCFolder objects,
            'you must use MoveFolderEx for these.
            MyContent(i).MoveFolderEx(CompanyFolder,moveInfo)
        Else
            MyFolder.DetachEx(MyContent(i), moveInfo)
            CompanyFolder.AttachEx(MyContent(i), moveInfo)
        End If
    Next

    oOM.Transaction.Commit

    rollback:
    oOM.Transaction.Rollback

    oOM.Disconnect

End Sub