用VB, 取某个路经下多个TXT文件 急..(50分)

某个路经下有多个TXT文件,如 D:/ABC/
我如何取回这些TXT文件呢?最好给例子
谢谢

Private Sub Command1_Click()
Dim MyFile, FName(999)
MyFile = Dir("D:/abc/*.TXT&quot
i = 0
Do While MyFile <> &quot;&quot;
' 开始循环。
FName(i) = MyFile
MyFile = Dir ' 查找下一个。
i = i + 1
Loop
End Sub

xie xie