在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位中配置不正確嗎？