f = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
' Dir的第二个参数可以设置你要获取哪些各类的文件或文件夹,vbDirectory是文件夹,vbHidden是隐藏文件,vbNormal是一般文件,vbReadOnly是只读文件,如果不需要的话就去掉。
While f<>""
'f就是一个文件名,可以在这里对文件f进行处理
f = Dir()
WEnd
dir()
http://wenku.baidu.com/view/e14369da50e2524de5187e5b.html
有filelistbox控件,拖个,指定路径,像list一样读取好了