windows - 在 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 位中默认配置得不好？