Добавить файлы на Content Server 10 из приложения VBA

Question

Моя компания только что перешла с livelink explorer на контент-сервер с opentext, и я отвечаю за то, чтобы приложения vba снова работали. У меня есть основная часть функции здесь. Функция принимает objID livelink, имя файла и его путь:

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

Я никогда не работал с продуктами с открытым текстом, и я единственный, кто знает VBA здесь, я понятия не имею, кто сделал этот код и как приступить к добавлению файлов на Content Server 10 через VBA (ms Access). Будет ли кто-нибудь иметь sugegstion?

благодарю вас