掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
For Each文を普通のFor文にしたい (ID：108036)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ２回For文回す事になるので、ダサイです。 > 出来れば、リストボックスで行きたいと思いますが、 なぜダサいんですか？ もし小王さんが今考えている方法でも ２回For文回す事になりますけど。 一応自分の考えを詳しく書きます。 １ まずリストボックスのSortedをTrueに ２ 小王さんが例に出されている１個目(For Each)でリストボックスに追加 ３ サブファイルを全部追加した後で、For文でListCountから0まで ぶん回せば、降順ですよね。 一応コード書いておきますね。 Dim colFilesystem As Object Dim objFolder As Object Dim colFiles As Object Dim objFile As Object Dim intIndex As Integer List1.Clear Set colFilesystem = CreateObject("Scripting.FileSystemObject") ' フォルダを取得 Set objFolder = colFilesystem.GetFolder("C:\") Set colFiles = objFolder.Files ' ディレクトリのファイル名をリストアップ For Each objFile In colFiles List1.AddItem objFile.Name Next For intIndex = List1.ListCount To 0 Step -1 ' ここにやりたい処理を書いてください Debug.Print List1.List(intIndex) Next intIndex ' オブジェクトを解放 Set colFilesystem = Nothing Set objFolder = Nothing Set colFiles = Nothing Set objFile = Nothing
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.