用Delphi编写DelTree程序
2006-02-04 13:26:25 来源:WEB开发网核心提示:Delphi提供了关于文件操作的许多函数,其中关于目录操作的有目录的创建与删除、设置当前目录、获取当前目录等,用Delphi编写DelTree程序,目录的删除有函数(Function)RemoveDir和过程(PRocedure)RmDir,但它们都只能删除空目录,删除其中的子目录和文件 oldDir := GetC
Delphi提供了关于文件操作的许多函数,其中关于目录操作的有目录的创建与删除、设置当前目录、获取当前目录等。目录的删除有函数(Function)RemoveDir和过程(PRocedure)RmDir,但它们都只能删除空目录,对于非空目录则不能删除。要实现删除整个目录树(DelTree)必须编写程序来删除其中的子目录和文件。
目录中的文件可以通过调用函数DeleteFile来删除,但对于特殊文件(只读、系统、隐藏等)则不能有效删除,必须更改文件属性为普通文件才能删除。更改文件属性可以用函数FileSetAttr,这里将特殊文件的属性设置为普通文件属性(属性值为0)。
考虑到树型目录结构最适合于递归方法,所有这里用递归算法来实现DelTree函数。下面是具体实现程序。
//path是需删除的目录路径
//目录成功删除返回True,否则返回False
function TForm1.Deltree (path : string): Boolean ;
var
SearchRec: TSearchRec;
begin
//判断目录是否存在
if DirectoryExists(path) then
begin
//进入该目录,删除其中的子目录和文件
oldDir := GetCurrentDir;
ChDir(path);
//查找目录中所有任何文件
FindFirst(′??.??′, faAnyFile, SearchRec);
repeat
//修改文件属性为普通属性值
FileSetAttr(SearchRec.Name,0);
//如果是目录并且不是.和..则递归调用DelTree
if(SearchRec.Attr and faDirectory > 0) then
begin
if(SearchRec.Name[1]<>′.′) then
if(not Deltree(SearchRec.Name)) then
break;
end
//如果是文件直接删除
else
if(not DeleteFile(SearchRec.Name))then
break ;
//继续查找,直到最后
until (FindNext(SearchRec)<>0) ;
//回到父目录,删除该目录
ChDir(′..′);
Result := ReMoveDir(path);
SetCurrentDir(oldDir);
end
else
Result := False ;
end ;
该程序在Windows 98、Delphi 4.0下编译通过。
目录中的文件可以通过调用函数DeleteFile来删除,但对于特殊文件(只读、系统、隐藏等)则不能有效删除,必须更改文件属性为普通文件才能删除。更改文件属性可以用函数FileSetAttr,这里将特殊文件的属性设置为普通文件属性(属性值为0)。
考虑到树型目录结构最适合于递归方法,所有这里用递归算法来实现DelTree函数。下面是具体实现程序。
//path是需删除的目录路径
//目录成功删除返回True,否则返回False
function TForm1.Deltree (path : string): Boolean ;
var
SearchRec: TSearchRec;
begin
//判断目录是否存在
if DirectoryExists(path) then
begin
//进入该目录,删除其中的子目录和文件
oldDir := GetCurrentDir;
ChDir(path);
//查找目录中所有任何文件
FindFirst(′??.??′, faAnyFile, SearchRec);
repeat
//修改文件属性为普通属性值
FileSetAttr(SearchRec.Name,0);
//如果是目录并且不是.和..则递归调用DelTree
if(SearchRec.Attr and faDirectory > 0) then
begin
if(SearchRec.Name[1]<>′.′) then
if(not Deltree(SearchRec.Name)) then
break;
end
//如果是文件直接删除
else
if(not DeleteFile(SearchRec.Name))then
break ;
//继续查找,直到最后
until (FindNext(SearchRec)<>0) ;
//回到父目录,删除该目录
ChDir(′..′);
Result := ReMoveDir(path);
SetCurrentDir(oldDir);
end
else
Result := False ;
end ;
该程序在Windows 98、Delphi 4.0下编译通过。
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››编写Linux定时处理程序
- ››编写Linux系统下Daemon程序的方法步骤
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
更多精彩
赞助商链接