pb删除文件夹

 添加listbox控件lb_1
lb_1.dirlist(文件夹路径   +   '/*.*',1)  
  if   lb_1.totalitems()   =   0   then   return  
  for   i   =   1   to   lb_1.totalitems()  
      filedelete(文件夹路径   + '/' +  lb_1.text(i))  
  next