在Win7而非Win XP上记录错误（运行时错误-2147217895（80040e19））

Question

Error.Description：在该操作范围内，找不到与名称，海滩或选择标准匹配的对象或数据。

在Windows 7上运行代码时出现此错误。在Windows XP上没有出现。 我读了这篇文章 ，没有运气。 这是代码：

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位中配置不正确吗？