急请问(文本文件枚举)

急请教(文本文件枚举)
现在有一个文件夹下有若干文本文件，请教：怎么能用循环的方式将这些文本文件顺序读出？

[解决办法]

VB code

Sub listFiles()    Dim myPath As String    myPath = Dir("c:\temp\*.txt") '指定路径    Do While myPath <> ""         '执行回圈       Debug.Print myPath         '将档案名称显示出来       myPath = Dir               '寻找下一个档案    LoopEnd Sub