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

博主： samool
发布时间：2007 年 10 月 09 日
7555 次浏览
暂无评论
4184字数
分类：搞软件

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;

最后修改：2009 年 08 月 16 日

© 允许规范转载

卧槽，全是白嫖客，服务器不要钱吗？

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

评论 *

私密评论

名称 *

🎲

邮箱 *

地址 *

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

samool • 2007 年 10 月 09 日

<div class="codeText"><div class="codeHead">delphi代码</div><ol class="dp-delphi">    <li class="alt"><span><span class="keyword">procedure</span><span>&nbsp;&nbsp;&nbsp;DeleteDir(sDirectory:&nbsp;&nbsp;&nbsp;String);&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></span></li>    <li class=""><span>&nbsp;&nbsp;</span><span class="comment">//删除目录和目录下得所有文件和文件夹&nbsp;&nbsp;&nbsp;</span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span><span class="keyword">var</span><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sr:&nbsp;&nbsp;&nbsp;TSearchRec;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPath,sFile:&nbsp;&nbsp;&nbsp;String;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;</span><span class="keyword">begin</span><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="comment">//检查目录名后面是否有&nbsp;&nbsp;&nbsp;'\'&nbsp;&nbsp;&nbsp;</span><span>&nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">if</span><span>&nbsp;&nbsp;&nbsp;Copy(sDirectory,Length(sDirectory),</span><span class="number">1</span><span>)&nbsp;&nbsp;&nbsp;&lt;&gt;&nbsp;&nbsp;&nbsp;'\</span><span class="string">'&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;</span>&nbsp;</li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPath&nbsp;&nbsp;&nbsp;:=&nbsp;&nbsp;&nbsp;sDirectory&nbsp;&nbsp;&nbsp;+&nbsp;&nbsp;&nbsp;'</span><span>\</span><span class="string">'&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class=""><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sPath&nbsp;&nbsp;&nbsp;:=&nbsp;&nbsp;&nbsp;sDirectory;&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class=""><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//------------------------------------------------------------------&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class=""><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp;FindFirst(sPath+'</span><span>*.*</span><span class="string">',faAnyFile,&nbsp;&nbsp;&nbsp;sr)&nbsp;&nbsp;&nbsp;=&nbsp;&nbsp;&nbsp;0&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class=""><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;repeat&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sFile:=Trim(sr.Name);&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class=""><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp;sFile='</span><span>.</span><span class="string">'&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;Continue;&nbsp;&nbsp;&nbsp;</span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;&nbsp;sFile='</span><span>..'&nbsp;&nbsp;&nbsp;</span><span class="keyword">then</span><span>&nbsp;&nbsp;&nbsp;Continue;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sFile:=sPath+sr</span><span class="number">.</span><span>Name;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">if</span><span>&nbsp;&nbsp;&nbsp;(sr</span><span class="number">.</span><span>Attr&nbsp;&nbsp;&nbsp;</span><span class="keyword">and</span><span>&nbsp;&nbsp;&nbsp;faDirectory)&lt;&gt;</span><span class="number">0</span><span>&nbsp;&nbsp;&nbsp;</span><span class="keyword">then</span><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DeleteDir(sFile)&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">else</span><span>&nbsp;&nbsp;&nbsp;</span><span class="keyword">if</span><span>&nbsp;&nbsp;&nbsp;(sr</span><span class="number">.</span><span>Attr&nbsp;&nbsp;&nbsp;</span><span class="keyword">and</span><span>&nbsp;&nbsp;&nbsp;faAnyFile)&nbsp;&nbsp;&nbsp;=&nbsp;&nbsp;&nbsp;sr</span><span class="number">.</span><span>Attr&nbsp;&nbsp;&nbsp;</span><span class="keyword">then</span><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DeleteFile(sFile);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="comment">//删除文件&nbsp;&nbsp;&nbsp;</span><span>&nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">until</span><span>&nbsp;&nbsp;&nbsp;FindNext(sr)&nbsp;&nbsp;&nbsp;&lt;&gt;&nbsp;&nbsp;&nbsp;</span><span class="number">0</span><span>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FindClose(sr);&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">end</span><span>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RemoveDir(sPath);&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</span></li>    <li class=""><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="comment">//------------------------------------------------------------------&nbsp;&nbsp;&nbsp;</span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span><span class="keyword">end</span><span>; &nbsp;&nbsp;</span></li></ol></div><p><br /><a href="https://samool.com/attachment/40730/" title="deltree.rar">deltree.rar</a><br /></p>