pb删除文件夹

pb listbox控件显示目录下所有文件和子目录名，想删除目录只保留想要的文件，使用 lb_FileList.deleteitem(ll_index)删除其中一个目录后，按照ll_index取值，控件自己会自动向前上移动1个，按照ll_index向下移动会取到原ll_index+2的值。GetFolder ("选择目录", ls_path)//进入下轮循环 不执行后续语句。//遍历结果直接显示到控件。//从控件获取 文件名。//获取当前应用目录。

以下内容是一个自定义userobject在Edit Source下的全部内容

int li_count,li_ilb_list.DirList( "指定目录/*.* ",0)//用列表框控件列出该文件夹下的所有文件 li_count   =   lb_list.totalitems()   for   li_i   =1   to   li_count                DeleteFile( lb_list.text(li_i) ) next-----------------------------------------------------------------

创建nvo_folder对象 forward global type nvo_folder from nonvisualobject end type type shfileopstruct from structure within nvo_folder end type end forward type shfileopstruct from structure long

最近倒霉地居然要去改PB的项目。无语，搜集了点资料。 FileClose()功能关闭先前用FileOpen()函数打开的文件。语法FileClose ( fileno )参数fileno：integer，指定要关闭文件的文件句柄，该句柄使用FileOpen()函数打开文件时得到返回值Integer。函数执行成功时返回1，发生错误时返回-1。如果fileno参数的值为NULL，那么FileC

FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll" 　　调用： 　　string ls_source, ls_des 　　boolean lb_flag, lb_rtn 　　lb_flag = false 　　ls_source = "c:\

怎样在PB中实现文件的拷贝与删除，可借助外部函数可用API函数实现：　　1、文件拷贝 　　函数声明：　　FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll" 　　调用：　　string ls_source, ls_des 　　boolean lb_flag,

创建文件夹，保存文件的代码：szFolder为文件夹绝对路径，szPath为更新的文件   if(!PathFileExists(szFolder)）//如果该文件夹不存在则创建文件夹   ::CreateDirectory(szFolder,NULL);   CFileFind finder;  CFile file;  if (finder.FindFile(szPath))//如果此文件已存

PB的文件操作能力比较弱，自带的一些函数功能太简单，一遇上些稍微复杂些的需求(如多文件删除，文件夹的删除等)并不是非常好用，所以利用windows的API来实现相应的功能就成了最好的选择，而这其中，SHFileOperation又是最好用的，其实我说的这些并不新鲜，网上也有相关的例子，但是网上现在能找到的例程都是PB10以前的，由于从PB10开始，编码从ANSI改成了UNICODE，所以在参数的传

/** * 删除目录以及子目录以下所有目录和文件 * * @param dir * @author ferndean */ public static void cleanDir(File dir) { if (dir.exists()) { File[] files = dir.listFiles(); if (null != files