' Точка входа.

Dim LoginPoint As SBLogon.LoginPoint

' Приложение.

Dim DirectumApplication As sbrte.Application

' Параметры соединения с использованием кода системы.

ConnectionParams ="SystemCode=DIRECTUM"

' Получить приложение, используя точку входа.

Set LoginPoint = New SBLogon.LoginPoint

Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)

Dim FolderFactory As sbrte.IFolderFactory

Dim NewFolder As sbrte.IFolder

Dim CopyFolder As sbrte.IFolder

Dim RootFolders As sbrte.IContents

Dim FavoriteFolder As sbrte.IFolder

Dim ObjectsInfo(2) As sbrte.IObjectInfo

' Создать и скопировать новую папку.

Set FolderFactory = DirectumApplication.FolderFactory

Set NewFolder = FolderFactory.CreateNew(ckEDocument)

Set CopyFolder = FolderFactory.Copy(NewFolder)

' Получить папку "Избранное".

Set RootFolders = FolderFactory.RootFolders

Do While Not RootFolders.EOF And RootFolders.Value.FolderType <> ftFavorites

RootFolders.Next

Loop

Set FavoriteFolder = RootFolders.Value.Folder

' В скопированную папку вставить все корневые папки

' и получить количество вставленных объектов.

InsertedCount = FolderFactory.PasteToFolder(CopyFolder.Info, RootFolders)

' Удалить папку "Избранное" из скопированной папки.

DeletedCount = FolderFactory.CutFromFolder(CopyFolder.Info, FavoriteFolder.Info)

InsertedCount = FolderFactory.PasteToFolder(FavoriteFolder.Info, CopyFolder.Info)

' Вставить в папку "Избранное" ссылки на электронный документ и папки.

EDocumentID = 147501

Set ObjectsInfo(0) = DirectumApplication.EDocumentFactory.ObjectInfo(EDocumentID)

Set ObjectsInfo(1) = CopyFolder.Info

Set ObjectsInfo(2) = NewFolder.Info

InsertedCount = FolderFactory.PasteToFolder(FavoriteFolder.Info, ObjectsInfo)