急请教(文本文件枚举)
现在有一个文件夹下有若干文本文件,请教:怎么能用循环的方式将这些文本文件顺序读出?
[解决办法]
- VB code
Sub listFiles() Dim myPath As String myPath = Dir("c:\temp\*.txt") '指定路径 Do While myPath <> "" '执行回圈 Debug.Print myPath '将档案名称显示出来 myPath = Dir '寻找下一个档案 LoopEnd Sub
发布时间: 2012-07-05 07:59:18 作者: rapoo
急请教(文本文件枚举)
现在有一个文件夹下有若干文本文件,请教:怎么能用循环的方式将这些文本文件顺序读出?
[解决办法]
Sub listFiles() Dim myPath As String myPath = Dir("c:\temp\*.txt") '指定路径 Do While myPath <> "" '执行回圈 Debug.Print myPath '将档案名称显示出来 myPath = Dir '寻找下一个档案 LoopEnd Sub