vb 把一个文件夹中所有txt，导入到一个listbox

Question

vb 把一个文件夹中所有txt，通过一个command_click 导入到一个listbox
并且，不要区分文件夹里面 txt文件的文件名
不管什么名字的txt，一网打尽

Answer 1

Private Sub Command1_Click()
dim dd as string, ss as string
list1.clear
dd=dir("e:\tmp\*.txt")
do until dd=""
open "e:\tmp\" & dd for input as #1
do until eof(1)
line input #1,ss
list1.additem ss
loop
close #1
dd=dir
loop
End Sub

以上代码是以e:\tmp文件夹的所有txt文件为例，自己修改