Delphi 清空文件夹


本文整理自网络,侵删。

  function TForm1.EmptyDirectory(TheDirectory:String;Recursive:Boolean):Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive then
begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else
begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec);
end;
end;





procedure TForm1.Button3Click(Sender: TObject);
begin
if EmptyDirectory('C:\aa\',True) then
showmessage('文件夹已清空');
end;

相关阅读 >>

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi 复制文件到全盘

Delphi package

Delphi获取jpg、gif、png等格式图片的大小(高度和宽度)

Delphi的initialization和finalization

Delphi shellexecute执行cmd命令窗口不关闭

Delphi创建证书密钥库文件

Delphi中获取当前用户sid

Delphi idtcp上传文件

Delphi 金木水火土 生克用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...