複数ファイルから特定文字列を一括検索 (ID:116627)

名前

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

本文 あるフォルダ内の全てのファイルから、特定の文字列を含む行を検索して、 含まれる行が見つかればそれをリストボックスに追加していくというようなプログラム を作りたいのですが、これでよいのか自信がありません。 何か問題があれば教えて下さい。 それと、もっときれいで速いやり方があれば教えて下さい。 Dim fso As Object, fsofolder As Object, fsofiles As Object, fsofile As Object Dim strbuf As String, strsearch As String Set fso = CreateObject("Scripting.FileSystemObject") Set fsofolder = fso.GetFolder("c:\test\") Set fsofiles = fso.folder.Files For Each fsofile In fsofiles Open "c:\test\" & fsofile.Name For Input As #1 Do While Line Input #1, strbuf If InStr(strbuf, strsearch) List1.list AddItem End If Loop Close #1 Next Set fso = Nothing, Set fsofolder = Nothing Set fsofiles = Nothing Set fsofile = Nothing よろしくお願いします。