pb里如何获取指定的文件夹内有多少张图片

pb里怎么获取指定的文件夹内有多少张图片啊
现在一个文件夹里面放了不定张数的图片 命名规则是 img0001.jpg、img0002.jpg。。。连续的 现在我想获得该文件夹内有多少张图片 或者 是编号最大的那个文件的文件名。 何解？

[解决办法]
原来是用Delphi做个dll,在PB调用实现的。
[解决办法]
可以使用listbox控件的dirlist()函数获取指定目录下的所有文件的列表，然后对listbox中所有项进行判断对比就可以了。例句如下：

SQL code

Long ll_TempLong ll_Max = 0lb_1.DirList("*.jpg", 0)For i = 1 To lb_1.TotalItems()  ll_temp = Long(Mid(lb_1.item[i], 4,5))  If ll_temp > ll_Max Then    ll_Max = ll_Temp  End IfNext