宣告在同一個物件上(編號：7803)

有一個問題我一直搞不懂
宣告2個東西在同一個物件上
雖然不會衝突到
可是當sfd改成fd時就出錯
不知道sfd和fd有什麼差別??

Private Sub Command1_Click()
Dim fs As New FileSystemObject
　　Dim fd As Folder　　
　　Dim sfd As Folder

Set fd = fs.GetFolder("c:\")
　　For Each sfd In fd.SubFolders
　　　　List1.AddItem sfd.Name
　　Next
End Sub