如何在iManage上获取存储在特定文件夹中的文件名?

时间:2018-01-15 22:37:32

标签: vba directory imanage

VBA中是否有通过引用FolderID列出存储在Worksite / iManage上特定文件夹中的文件的方法?

我想要实现的是获取所有文件并将其列在A列的电子表格中,就像您可以从普通磁盘目录中获取文件夹的内容一样。

在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似乎没有这样的属性。

一些帮助,我真的很感激。

1 个答案:

答案 0 :(得分:0)

IManage文件夹有一个Contents属性,其中包含存储在其中的项目。您可以枚举内容,尽可能地转换为IManDocument,并从中获取属性。类似于以下内容应该有效:

Dim folderItem As IManContent
Dim currentImanDoc As IManDocument

.... Get your folder  

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