Как получить имена файлов, хранящихся в определенной папке в iManage?

Question

Есть ли способ в VBA перечислить файлы, хранящиеся в определенной папке на Worksite/iManage, ссылаясь на FolderID?

Чего я хотел бы добиться, так это получить все файлы и перечислить их в электронной таблице в столбце А, точно так же, как вы можете получить содержимое папки из обычного каталога на диске.

В imanage имя файла будет iManDocument.Description.

Ниже то, что я придумал до сих пор. Я не знаю, как двигаться вперед с этим:(

Dim dmsRoot As IManDMS
Dim dmsSession As IManSession
Dim dmsDatabase As IManDatabase
Dim iFile As IManDocument
Dim iFdr as ImanFolder
DimFname as String

Const ServerName As String = "DMSname"
Const DatabaseName As String = "DatabaseName"
Const ifID as long = "123456"

Set dmsRoot = New ManDMS
Set dmsSession = dmsRoot.Sessions.Add(ServerName)
dmsSession.TrustedLogin

Set dmsDatabase = dmsSession.Databases.ItemByName(DatabaseName)

Set iFlr = dmsDatabase.GetFolder(ifID)

Что я обычно делаю, это создаю цикл

For each iFile in iFlr

  Fname = IFile.Description

и поместите имя в ячейки одну за другой, но ImanFolder, похоже, не обладает такими свойствами.

Некоторая помощь с этим была бы действительно цениться.

Answer 1

Папки IManage имеют свойство Contents, которое содержит элементы, хранящиеся в нем. Вы можете перечислить содержимое, приведя к IManDocument, где это возможно, и получить свойства из этого. Должно работать что-то похожее на следующее:

Dim folderItem As IManContent
Dim currentImanDoc As IManDocument

.... Get your folder  

For Each folderItem In currentIManFolder.Contents
    FName = folderItem .Description
Next