pb删除指定文件夹下所有文件

来源：互联网发布：知乎性功能编辑：程序博客网时间：2024/04/30 10:30

//-----------------------------------------------------------------

//功能：清空指定文件夹下所有文件(指定路径下所有文件)

//参数：

// string as_filepath:指定路径

// listbox lb_file :下拉组合框

//反回值：无

//书写人：ljh 2011-05-24

//-----------------------------------------------------------------

long i

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

------------------------------------------------------------------------------------------

listboxname.DirList ( filespec, filetype {, statictext } )

Argument Description

-------------------- --------------------------
listboxname The name of the ListBox control you want to populate

filespec A string whose value is the file pattern. This is usually a mask (for example, *.INI or

*.TXT). If you include a path, it becomes the current drive and directory

filetype An unsigned integer representing one or more types of files you want to list in the ListBox.

Types are:

0——Read/write files

1——Read-only files

2——Hidden files

4——System files

16——Subdirectories

32——Archive(modified)files

16384——Drives

32768——Exclude read/wirte files from the list.