WSH(・∀・)ｽﾚｯﾄﾞ! Part 4

次のように Folderオブジェクトの SubFolders でFolderコレクションを取得したとして、

　Set c = folder.SubFolders

これを For Each ではなくて以下のように For で処理したいです。

　For i = 0 To c.Count
　　:
　Next

このループの中で、i 番目のアイテムを取得するにはどうしたらよいでしょうか？
c(i) でも c.Item(i) でもダメでした。

c.Items(i)

それだと
オブジェクトでサポートされていないプロパティまたはメソッドです。:'c.Items'
です。
ちなみに、c.Item("Test") みたいに、実在するフォルダ名を与えればフォルダオブジェクトは取って来れます。
それじゃ意味無いですが。

c(i).Value
c(i).Item()

>>213
プロシージャの呼び出し、または引数が不正です。

Shell.Application の FolderItems のほうを使ったら？

配列に入れて使え

For i = 0 To c.Count
j=0
　For Each f In c
If j=i Then Exit For
j=j+1
　Next
MsgBox f
Next

番号は使えないみたいだな
ItemクリックしたらDictionaryに飛んだ

ttp://msdn.microsoft.com/en-us/library/9kcx47hd%28VS.85%29.aspx