VBA中奇怪的问题

[zw19791220]

我有以下的代码
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Set myFolders = objFolder.Items()
Dim i As Integer
For i = 1 To myFolders.Count
MsgBox myFolders.Item(i).Path
Next i

当我写myFolders.Item(i).Path时抱错,但写myFolders.Item(1).Path时却没有问题,不知道是怎么回事?
哪位指导一下,谢了!

[ChinaOBS]

不太清楚，不过下面的代码是可以正常执行的：
Sub Test()
On Error Resume Next
Dim objFolder As Folder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Dim i As Integer
For i = 1 To objFolder.Items.Count
Debug.Print objFolder.Items.Item(i).Path
Next i
End Sub

[Arqui]

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "select folder", 0, 0)
Set myFolders = objFolder.Items()
Set myFolder = myFolders.Item
For Each myFolder In myFolders
MsgBox myFolder.Path
Next

[zw19791220]

非常感谢楼上这位朋友的回答!!!!

[zw19791220]

没有人知道原因吗?