リストボックスにファイルの一覧を表示する方法
コンパクトにまとまるようだ。
C:\にテキストファイル
・ test1.txt
・ test2.txt
・ test3.txt
・ test4.txt
があるとする
------------------------------------------------------------
Dim p As Variant
Dim work As String
p = Dir("C:\test*.txt) '複数ファイルを取得
Do While p <> ""
work = work & p & ";"
p = Dir
Loop
ListBox1.RowSource = work
ListBox1.Requery
------------------------------------------------------------
尚、リストボックスのプロパティで、集合ソースを”値リスト”に変更すること。
これをしないと、表示されません。
pの値には、ファイル名だけが代入されるのでディレクトリと分けて物事を考えられる。
これを応用すると複数のファイルを一つのテーブルに保存なんてのも可能だが
同じファイル名がどこかの部分でそろっていることが前提条件ですが。
0 件のコメント:
コメントを投稿