pb 循环遍历文件

pb 循环遍历文件

2011-05-14 16:26:48|  分类：pb|字号订阅

//文件
//lb_1.dirlist(dir+'*.*',0);
//目录和文件
dir = dir + '\'
long ll_items,ll_index,li_copy
string ls_filename
lb_FileList.DirList( dir + '*.*', 16)
ll_items = lb_FileList.totalitems()
if  ll_items= 0 then
return 0
end if
for ll_index = 1 to ll_items
ls_filename = lb_FileList.text(ll_index)
if ls_filename='[..]' then
 continue
end if
IF right(ls_filename,1)=']'  then
 ls_filename=mid( ls_filename,2,len(ls_filename) -2 )
 ls_filename = dir +ls_filename
 dir_file(ls_filename)
 lb_FileList.DirList(dir + '*.*',16)//注意
else
 li_copy = FileCopy(dir+ls_filename ,"d:\temp\"+ls_filename ,True)
end if  
next
return 1