Delphi 目录及子目录所有文件删除
2013-05-28 03:03
239 查看
//需要引用单元 shellapi
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;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- shellapi-delphi删除目录及子目录及所有目录下的文件
- 使用批处理命令移动子目录下的所有文件到当前目录下，并删除子目录
- Python_删除/创建指定目录及其下所有子目录的文件，该文件记录当前文件夹的内容
- 删除某个目录及目录下的所有子目录和文件
- cmd自动删除当前目录及子目录中的所有空文件
- 批处理-删除目录和所有子目录里的指定后缀文件
- delphi 删除指定目录 下 指定日期之前所有文件
- 删除目录下所有文件和子目录（不包括当前目录）
- java删除目录下所有子目录及文件
- 删除一个目录及其子目录下的所有.svn文件
- 如何删除当前目录和子目录下的所有.log文件
- 递归删除指定目录下所有文件及子目录
- Java版本的删除指定目录及子目录下名叫“xxx.txt”的所有文件
- Python中使用glob和rmtree删除目录子目录及所有文件的例子
- 删除目录及子目录下所有文件【mac】
- 删除所有svn文件（一个目录和其各级子目录下的） 两种方法
- python实例32[glob+rmtree来删除目录和子目录及其下所有文件]
- 删除目录以及子目录以下所有目录和文件
- python实例32[glob+rmtree来删除目录和子目录及其下所有文件]
- 删除目录下所有子目录和文件