本程序实现遍历指定文件夹内文件，并将其显示到ListBox中
（1）窗体如下
（2）代码
'--------------------------------------------------------------------------
'遍历文件
'--------------------------------------------------------------------------
Private Sub Command2_Click()
调用SearchFiles函数，将遍历的文件内容路径及文件名称列到List控件中
号表示多个任意字符
查找应用程序即本程序TEMP文件中所有文件
如果是查找所有txt文件则"*.txt此处可设置过滤条件
End Sub
'--------------------------------------------------------------------------
' 遍历函数
'--------------------------------------------------------------------------
Private Function SearchFiles(Path As String, FileType As String)
文件路径
文件夹路径
查找第一个文件
循环到没有文件为止
将文件目录跟文件名组合，并存放到数组中
加入List控件中
查找下一个文件
让出控制权
查找第一个文件夹
循环到没有文件夹为止
为了防止重复查找
如果是文件夹则。。。
将目录跟文件夹名称组合形成新的目录，并存放到数组中
查找下一个文件夹
让出控制权
使用递归方法，遍历所有目录
End Function
注意：TEMP文件夹应建在你当前程序所在目录底下，这也是APP.Path那句含义所在下载本文
