怎样将文件夹下面的数据库名称显示到combo中解决办法

怎样将文件夹下面的数据库名称显示到combo中
某个文件夹下面建立几个数据库
怎样将其中的数据库名称全部加载到某个combo中，供选择用？

[解决办法]
Combo1.AddItem left(s.Name,len(s.Name)-4)