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

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

210:デフォルトの名無しさん
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

次ページ