Работа с фабрикой папок

' Точка входа.
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)

См. также