猫
Delphi技术
日志阅读：1881
日志评论：0

上一篇日志 «
下一篇日志 »

批量删除目录和目录下得所有文件和文件夹

该日志由 samool 发表于 2007-10-09 12:08 PM

delphi代码

procedure DeleteDir(sDirectory: String);
//删除目录和目录下得所有文件和文件夹
var
sr: TSearchRec;
sPath,sFile: String;
begin
//检查目录名后面是否有 '\'
if Copy(sDirectory,Length(sDirectory),1) <> '\' then
sPath := sDirectory + '\'
else
sPath := sDirectory;
//------------------------------------------------------------------
if FindFirst(sPath+'*.*',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile='.' then Continue;
if sFile='..' then Continue;
sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory)<>0 then
DeleteDir(sFile)
else if (sr.Attr and faAnyFile) = sr.Attr then
DeleteFile(sFile); //删除文件
until FindNext(sr) <> 0;
FindClose(sr);
end;
RemoveDir(sPath);
//------------------------------------------------------------------
end;

deltree.rar Downloads: 268 times, 344.55 K

傻猫网络日志标签: delphi, 批量删除, 文件, 文件夹

网摘：

Yahoo

Baidu

Google

Bolaa

365Key

Yesky

Wozhai

POCO

ViVi

YouNote

Hexun

Del.icio.us

Yeeyoo

igooi

I2Key

Cn3

Bytemen

Furl

Blinklist

Blogmarks

Technorati

分享到饭否

相关文章： (最多只显示8条记)

如何判断按下的是回车键? (浏览：744, 评论：0)
Borland把Delphi卖掉了 (浏览：571, 评论：0)
Delphi如何开发游戏外挂 (浏览：1178, 评论：0)
Delphi大富翁论坛离线数据大全 (浏览：1045, 评论：0)
基于delphi的bho开发笔记 (浏览：1631, 评论：0)
阻断弹出式广告的BHO (浏览：1415, 评论：0)
Delphi函数返回多个值 (浏览：1724, 评论：0)
让Sablog也支持Delphi代码高亮功能 (浏览：1820, 评论：4)

发表评论：( 来了就留个脚印吧！你的参与是我最大的动力！)