リストビューに検索したファイルを一覧表示するには？ (ID:120185)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >※機種依存文字(丸付き数字)を使うのはネチケット違反です。 知らなかった事とは言え、すみませんでした。 下記にて検索リスト(リストビュー)にフォルダ(strOpenFilePath)から ファイルの一覧を表示する事は出来たのですが、検索部分が分かりません。 どなたかお願いします。 Dim colFilesystem As Object Dim objFolder As Object Dim colFiles As Object Dim objFile As Object Set colFilesystem = CreateObject("Scripting.FileSystemObject") ' フォルダを取得 Set objFolder = colFilesystem.GetFolder(strOpenFilePath) Set colFiles = objFolder.Files ' ディレクトリのファイル名をリストアップ For Each objFile In colFiles 検索リスト.ListItems.Add , , objFile.Name Next