掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
For Each文を普通のFor文にしたい (ID：108030)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
現在FileSystemObjectのSubFoldersで取得したフォルダ をFor Each文を使って、リストに追加しています。 Set colFilesystem = CreateObject("Scripting.FileSystemObject") Set objFolder = colFilesystem.GetFolder("C:\") Set colFiles = objFolder.SubFolders For Each objFile In colFiles List1.AddItem objFile.Name Next フォルダの並び順を変えたりしたいので、For Each文でなく 通常のFor文にしたいのですが、うまくいきません。 以下、エラーになるロジック Set colFilesystem = CreateObject("Scripting.FileSystemObject") Set objFolder = colFilesystem.GetFolder("C:\") Set colFiles = objFolder.SubFolders For I To colFiles.Count List1.AddItem colFiles.Item(I).Name Next 何が駄目なのか、お分かりになる方がいましたら、お教えください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.