vba - VBA で Livelink にフォルダーを作成する

Question

Livelink で VBA を使用してフォルダーを作成する最も簡単で最速の方法を探しています。Microsoft Access 2003 を使用しています。たとえば、Livelink\Enterprise\folder1\folder2\. またfolder2 LivelinkID、Access データベースに (7 桁) を保存しています。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必要に応じてandも使用しLLPasswordます。