菜问题：如何用较快的速度获得当前目录下所有某一类型的文件(比如*.bmp),并将其全AddItem到Combo中

Question

用dir命令。
具体使用方法见msdn

Answer 1

为什么不用 FileList 控件?

Answer 2

Dir如何用？
FileList不符合我的要求，谢谢

Answer 3

将FileList隐藏。
然后：
for i:=0 to filelist.listcount-1
    combo.additem filelist.list(i)
next

Answer 4

先dir *.bmp返回第一个文件名，再用dir()返回其它的文件名，直到返回值为空就是没有了。

Answer 5

在filelistbox控件中把pattern属性改为*.bmp，然后一次将所有filelistbox中的内容AddItem到Combo中。

Answer 6

   str = Dir("f:\tools\*.bmp")
   Do While str <> ""
        Combo1.AddItem str
        str = Dir
   Loop