Ошибка записи на Win7, а не на Win XP (ошибка во время выполнения -2147217895 (80040e19))

Question

Ошибка. Описание: Невозможно найти объект или данные, соответствующие названию, пляжу или критериям выбора в рамках эта операция.

Я получаю эту ошибку при запуске кода в Windows 7. Он не отображается в Windows XP. Я прочитал это article и не повезло. Вот код:

Public Function testLL() 

Dim rc As New ADODB.Record 
Dim rs As New ADODB.Recordset 
Dim conn As ADODB.Connection 
Dim objStream As New ADODB.Stream 
Dim sURL As String 

sURL = "http://livelink.company.com/livelinkdav/nodes/154680737/" 

rc.Open sURL, , adModeReadWrite 

Set rs = rc.GetChildren 

If Not (rs.BOF And rs.EOF) Then 
    rs.MoveFirst 
    MsgBox rs.Fields(1).Value 

End If 

End Function 

Некоторые люди предложили эту проблему с версией MDAC. Я могу проверить версию на Windows 7, но мне нужны права админов на XP, поэтому я не могу проверить, были ли версии одинаковыми.

Answer 1

Я пробовал еще один вариант, он отлично работает, когда я пытаюсь подключиться к livelink, но он не работает, когда я пытаюсь использовать Content Server, и это то, что я пытаюсь использовать. Я все еще использую LiveLink для своих тестов.

Я изменил/к \ в Surl:

sURL = "\\livelink.ge.hydro.qc.ca\livelinkdav\nodes\154680737 

Dim objFSO As New Scripting.FileSystemObject 
Dim objFolder As Scripting.Folder 
Dim colFiles As Scripting.Files 
Dim colFolders As Scripting.Folders 

Set objFolder = objFSO.GetFolder(sURL) 
Set colFiles = objFolder.Files 
Set colFolders = objFolder.SubFolders 


MsgBox colFiles.Count 
MsgBox colFolders.Count 

С помощью этого кода я могу рассчитывать папки и файла в моей папке LiveLink, я также был в состоянии создать папку. Тем не менее, я бы предпочел использовать URL-адреса, поскольку по какой-то причине это не работает с Content Server (невозможно найти путь). Я до сих пор не знаю, почему мой предыдущий код работает в Windows XP, а не в Windows 7.

Редактировать: Может ли быть причиной того, что webdav не настроен по умолчанию в 64 бит?