10/02/22 21:41:34
次のように Folderオブジェクトの SubFolders でFolderコレクションを取得したとして、
Set c = folder.SubFolders
これを For Each ではなくて以下のように For で処理したいです。
For i = 0 To c.Count
:
Next
このループの中で、i 番目のアイテムを取得するにはどうしたらよいでしょうか？
c(i) でも c.Item(i) でもダメでした。
211:デフォルトの名無しさん
10/02/22 21:44:18
c.Items(i)
212:210
10/02/22 21:50:27
それだと
オブジェクトでサポートされていないプロパティまたはメソッドです。:'c.Items'
です。
ちなみに、c.Item("Test") みたいに、実在するフォルダ名を与えればフォルダオブジェクトは取って来れます。
それじゃ意味無いですが。
213:デフォルトの名無しさん
10/02/22 22:06:18
c(i).Value
c(i).Item()
214:210
10/02/22 22:17:28
>>213
プロシージャの呼び出し、または引数が不正です。
215:デフォルトの名無しさん
10/02/22 23:29:43
Shell.Application の FolderItems のほうを使ったら？
216:デフォルトの名無しさん
10/02/25 21:55:47
配列に入れて使え
217:デフォルトの名無しさん
10/02/25 22:13:00
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
218:デフォルトの名無しさん
10/02/25 22:55:24
番号は使えないみたいだな
ItemクリックしたらDictionaryに飛んだ
URLﾘﾝｸ(msdn.microsoft.com)
219:デフォルトの名無しさん
10/03/01 21:36:27
test