テキストファイルを複数読み込むには

解決

yopito 2003-04-14 08:23:55 No: 106675

今度は、フォームを開くときに、過去に保存した".txt"のファイルをテキストボックスかリストボックスに読み込みたいのです。１個だと問題なく読めるのですが、複数あります。（ちなみに６個）コレを"Form_Load"時にある分だけ読み込むことは可能でしょうか？

R&K 2003-04-14 18:31:40 No: 106676

はじめまして

ファイルの中身なのか、ファイル名なのかいまいち
わかりませんが、リストボックスにファイル名を
追加するのは

Dim res As String

List1.Clear
res=Dir("C:\temp\*.txt")
Do While res <> ""
List1.AddItem res
res=Dir
Loop

これでC:\Tempの.txtファイルだけのファイル名が
List1に追加していくことができます。

もしファイルの内容ということなら、Dirでファイル名
を取得した後で、ひとつずつ開いて読むだけだと思うの
ですが、用途が違うのでしょうか？

Form_Loadの中に記述しても良いし、別のFunctionに
しても良いと思います。

参考になれば

yopito 2003-04-15 02:33:47 No: 106677

ありがとうございました。
解決しました。