Q5/ws_objects/ljnc.pbl.src/f_del_file.srf

$PBExportHeader$f_del_file.srf
global type f_del_file from function_object
end type

forward prototypes
global subroutine f_del_file (string filepath, listbox lb_file)
end prototypes

global subroutine f_del_file (string filepath, listbox lb_file);int rst
rst = f_create_directory(filepath)
IF rst=-1 THEN RETURN

long i
lb_file.dirlist(filepath+"*.mhtml",0)
if lb_file.totalitems() > 0 then 
    for  i = 1 to lb_file.totalitems()
        filedelete(filepath + lb_file.text(i))
    next
end if
end subroutine