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

解決

---

良くありそうな事なのですが検索しても見つからず苦戦しております。
どなたかお願いします。

①、テキストボックスに文字列入力(*.txtなど)。
②、検索ボタンを押す。
③、予め設定されているフォルダの中からリストビューに検索した
    結果のファイル名と更新時間が一覧表示される。

上記の事を行いたいのです。
最初はファイルリストボックスにしていたのですが、更新時間も表示
したいと言う事と更新時間でソートしたいと言う2点から、リストビュー
を使用する事にしました。(見た目も大事ですし)

宜しくお願いします。

編集 削除

---

※機種依存文字(丸付き数字)を使うのはネチケット違反です。


仕様が決まっているのなら、あとは仕様にあわせて
プログラムを組めばいいのでは？

編集 削除

---

>※機種依存文字(丸付き数字)を使うのはネチケット違反です。

知らなかった事とは言え、すみませんでした。

下記にて検索リスト(リストビュー)にフォルダ(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

編集 削除

---

環境(VB.NET or VB6)も書いて下さいね。

Dir関数でファイル検索出来ます。
とりあえずヘルプ見てみて下さい。

編集 削除

---

こんな感じ

For Each objFile In colFiles
    If objFile.Name Like "*.txt" Then    
        検索リスト.ListItems.Add , , objFile.Name
    End If
Next

編集 削除

---

ほんとによく探したの？
へろぱさんのページの

VB De FileSearch 
ファイル名からファイルを検索 

が参考になると思いますが。

編集 削除

---

LESIAさんの方法で行く事にしました！
みなさんありがとうございました！！

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。