问一下各位大神，这个遍历文件的程序怎么使用

Question

Public Sub Search_file_in_folder(folder_name As String) '遍历指定文件夹下的所有文本文件
 
Dim Files() As StringDim a As IntegerFileType = "*.*"sPath = Dir(folder_name & FileType) '查找第一个文件Do While Len(sPath) '循环到没有文件为止a = a + 1ReDim Preserve Files(1 To a)Files(a) = path & sPath '将文件目录和文件名组合,并存放到数组中sPath = Dir '查找下一个文件DoEvents '让出控制权LoopEnd Sub

Answer 1

字符串数组类变量或者全局变量Files字符串数组保存了找到的结果;
调用的时候参数folder_name所对应的字符串一定要以"\"为结尾,比如"c:\";

Answer 2

就是想问一下，为什么files(a)存不下地址只能存下文件名

Answer 3

可以存下地址的:
Files(a) = path & sPath 
改成
Files(a) = folder_name & sPath 
应该就可以了.