使用VBA在Livelink中創建文件夾

Question

我正在尋找最簡單，最快捷的方式在Livelink中使用VBA創建文件夾。我正在使用Microsoft Access 2003.例如，我想創建一個文件夾到Livelink\Enterprise\folder1\folder2\。我也有存儲在我的Access數據庫中的folder2 LivelinkID（7位數字）。 Livelink服務器大約需要1-2秒鐘來響應每次ping命令。

什麼是在我的VBA項目中創建文件夾到Livelink的最佳方法？ Livelink版本爲9.7.1.0.814，Livelink Explorer（連接）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。