vb 打开文件夹里的所有txt文件,该怎么解决

vb 打开文件夹里的所有txt文件
例如 d:\download 里面有53612.txt  53810.txt  53723.txt  43216.txt  
我想按数序依次读取里面的内容  
 谢谢！
------解决方案--------------------
窗体上放一个 ListBox，Visible 可设置为 False，Sorted 属性设置为 True。

Dim strFile As String, i As Iteger

strFile = Dir("d:/download/*.txt")
Do Until strFile = ""
    List1.AddItem strFile
    strFile = Dir()
Loop

For i = 0 To List1.ListCount - 1
    Open "d:/download/" & List1.List(i) For Input As #1
    '......
    Close #1
Next i
------解决方案--------------------
shell "dir /b /a-d /on d:\download\*.txt >d:\f.txt"
'然后读文件d:\f.txt的内容，每行一个文件名按名字排序