如何得到当前目录下access数据库的个数和名称？

Question

请教大家一个问题."如何得到当前目录下access数据库的个数和名称？"
例如：在D盘符下A文件夹里有aa.mdb,bb.mdb,cc.mdb,dd.mdb  用什么办法知道有多少个数据库的名称，以及显示这些数据库的名称？

Answer 1

用Dir，MSDN中有其查找文件的具体示例...

Answer 2

Dim strFile As StringstrFile = Dir("D:\a\*.mdb")Do Until strFile = ""
    Debug.Print strFile
    strFile = Dir()
Loop