删除整个目录

这个是“橙子”2008年总结的删除目录的办法:

以往删除目录时,都需要先用递归删干净目录下的文件和子文件夹,这样做的时候,如果文件数量大,那么删除会非常慢于是找了个方便一点的方法,直接使用api将目录删除

代码如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function deldirectory(const source: string): boolean;
var
  fo: tshfileopstruct;
begin
  fillchar(fo, sizeof(fo), 0);
  with fo do
  begin
    wnd := 0;
    wfunc := fo_delete;
    pfrom := pchar(source + #0);
    pto := #0#0;
    fflags := fof_noconfirmation + fof_silent;
  end;
  result := (shfileoperation(fo) = 0);
end;<br><br>未测试😀
posted @   海利鸟  阅读(651)  评论(1编辑  收藏  举报
编辑推荐:
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
· C++代码改造为UTF-8编码问题的总结
阅读排行:
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库
点击右上角即可分享
微信分享提示