请教pb如何遍历文件夹（包括子文件夹）

请问pb怎么遍历文件夹（包括子文件夹）
我做了个循环函数不得行
参数是 powerobject  ap_listbox  ；  string as_path_t
lb_files_o 是实例变量

long  i   
ListBox  lb_files_t
lb_files_t  = ap_listbox
lb_files_o.reset()
 

if lb_files_t.totalitems() > 0 then 
    for  i = 1 to lb_files_t.totalitems()
if lb_files_t.text(i) = '[..]' then continue
if pos(lb_files_t.text(i), '[') = 1 then
as_path_t = as_path_t + '\' + mid(lb_files_t.text(i),2,len(lb_files_t.text(i)) - 2) +"\*.*"
lb_files_o.dirList(as_path_t , 16)
wf_dirlist(lb_files_o,as_path_t)
else
lb_files1.addItem(lb_files_t.text(i))
end if
    next
end if


------解决方案--------------------
DirList()就可以啊
你查查这个函数的用法
------解决方案--------------------
先将每个dirlist存入数组,再遍历下一下列表
可以考虑写个递归函数
------解决方案--------------------
用listbox控件或着 win32 api  FindFirstFile