从VBA应用程序向Content Server 10添加文件

Question

我的公司刚刚从livelink explorer更改为opentext的内容服务器，我负责让vba应用程序再次运行。我在这里有功能的主要部分。 该函数接受livelink objID，文件名及其路径：

Function SaveLiveLink(ojbID, FileName, PathSource)

Dim dav As New ADODB.Record
Dim Files As New ADODB.Recordset
Dim objStream As New ADODB.Stream
Dim url as String

url = "http://livelink.company_domain/livelinkdav/nodes/" & ObjId
dav = open url, admodeRaadWrite
Set Files= dav.GetChildren

If Not (Fichiers.BOF And Fichiers.EOF) Then Fichiers.MoveFirst

Do Until Files.EOF
    If FileName Like Replace(Files("RESOURCE_DISPLAYNAME"), "_", "?") Then Exit Do
    Files.MoveNext
Loop

If Files.EOF Then
    Files.AddNew "RESOURCE_PARSENAME", FileName
    Files.Update
End If

// I think the loops check if the file exists, if it exists --> update, else add new

Fichiers.Close
dav.Close

objStream.Open "URL=" & url & "/" & FileName, adModeWrite
objStream.Type = adTypeBinary
objStream.LoadFromFile pathSource
objStream.Flush
objStream.Close

我从未使用过opentext产品，而且我是唯一知道VBA的人，我不知道是谁做了这段代码，以及如何通过VBA（ms Access）继续向Content Server 10添加文件。有人会有一个sugegstion？

谢谢