使用VBA在Livelink中创建文件夹

Question

我正在寻找用VBA在Livelink中创建文件夹的最简单和最快的方法。我正在使用Microsoft Access 2003。例如，我想在Livelink\Enterprise\folder1\folder2\中创建一个文件夹。我也有folder2 LivelinkID (7位)存储在我的Access数据库中。每次我对Livelink服务器执行ping操作时，它都需要大约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。