vba - 使用 VBA 在 Livelink 中创建文件夹

Question

我正在寻找使用 VBA 在 Livelink 中创建文件夹的最简单、最快的方法。我正在使用 Microsoft Access 2003。例如，我想在Livelink\Enterprise\folder1\folder2\. folder2 LivelinkID我的Access 数据库中也存储了（7 位数字）。每次我 ping 它时，Livelink 服务器大约需要 1-2 秒来响应。

在我的 VBA 项目中将文件夹创建到 Livelink 中的最佳方法是什么？Livelink 版本是 9.7.1.0.814，带有 Livelink Explorer (Connect) 4.8.2.397，使用 Outlook 2003。

谢谢你。

Answer 1

最后让它与 WebDAV 一起工作。它也可以与 MAPI 一起使用，但是要到达一个深的父文件夹（每次一个文件夹一个文件夹）真的很长。

这是我得到的功能：

Public Function CreateFolderToLLFolder(parentId As String, folderName As String) As String
    Dim dav As New ADODB.Record
    Dim elements As ADODB.Recordset
    Dim fields(1) As Variant
    Dim values(1) As Variant

    dav.Open URL_WEBDAV & parentId, "", adModeReadWrite, , , LLUser, LLPassword
    Set elements = dav.GetChildren

    fields(0) = "RESOURCE_PARSENAME"
    values(0) = folderName 

    fields(1) = "RESOURCE_ISCOLLECTION"
    values(1) = True

    elements.addnew fields, values

    elements.Close
    Set elements = dav.GetChildren
    dav.Close

    elements.MoveFirst
    Do Until elements.EOF
        If elements("RESOURCE_DISPLAYNAME") = folderName Then
            Exit Do
        End If
        elements.MoveNext
    Loop
    If Not elements.EOF Then
        dav.Open elements
        CreateFolderToLLFolder = dav("urn:x-opentext-com:ll:properties:nodeid")
    Else
        CreateFolderToLLFolder = -1
    End If

    dav.Close
    elements.Close
Exit Function

URL_WEBDAV 是例如http://livelink.yourserver.com/livelinkdav/nodes/. 如果需要，也可以使用LLUser和。LLPassword