删除文件夹以及文件夹下的所有文件
2007-09-18 12:39
316 查看
procedure TForm1.DeleteFolder(psDelPath: string);
var
loSr: TSearchRec;
begin
if FindFirst(psDelPath + '/*.*', faAnyFile, loSr) = 0 then
begin
if loSr.Attr <> faDirectory then
DeleteFile(psDelPath + '/' + loSr.Name)
else
begin
if (loSr.Name <> '.') and (loSr.Name <> '..') then
begin
DeleteFolder(psDelPath + '/' + loSr.Name);
end;
end;
while FindNext(loSr) = 0 do
begin
if loSr.Attr <> faDirectory then
begin
DeleteFile(psDelPath + '/' + loSr.Name);
end
else if (loSr.Name <> '.') and (loSr.Name <> '..') then
begin
DeleteFolder(psDelPath + '/' + loSr.Name);
end;
end;
FindClose(loSr);
end;
RemoveDirectory(PChar(psDelPath));
end;
var
loSr: TSearchRec;
begin
if FindFirst(psDelPath + '/*.*', faAnyFile, loSr) = 0 then
begin
if loSr.Attr <> faDirectory then
DeleteFile(psDelPath + '/' + loSr.Name)
else
begin
if (loSr.Name <> '.') and (loSr.Name <> '..') then
begin
DeleteFolder(psDelPath + '/' + loSr.Name);
end;
end;
while FindNext(loSr) = 0 do
begin
if loSr.Attr <> faDirectory then
begin
DeleteFile(psDelPath + '/' + loSr.Name);
end
else if (loSr.Name <> '.') and (loSr.Name <> '..') then
begin
DeleteFolder(psDelPath + '/' + loSr.Name);
end;
end;
FindClose(loSr);
end;
RemoveDirectory(PChar(psDelPath));
end;
相关文章推荐
- Nodejs下如何判断文件夹的存在以及删除文件夹下所有的文件
- java 删除指定文件夹 以及文件下下面的所有文件
- java创建文件文件夹,删除空文件夹,删除文件夹以及所有文件
- 删除文件夹以及文件夹下的所有文件
- 删除文件夹以及文件夹下的所有文件
- Android 删除目录下的所有文件以及文件夹及遍历文件夹下面的文件
- 删除指定文件夹以及文件夹下面的所有文件
- C# 删除指定文件以及文件夹下的所有文件的方法
- 删除一个文件夹下所有文件以及文件夹
- 删除除了匹配到的所有文件以及文件夹
- 删除文件夹以及文件夹内的所有的子文件夹、文件
- PHP删除指定目录下所有文件夹以及文件
- linux 查找命令:删除文件夹以及其子文件夹下所有名字为file的文件发表于
- 删除某个文件夹下所有文件以及文件夹
- unix 删除文件夹以及该目录下面的所有文件
- java 删除指定文件夹 以及文件下下面的所有文件
- java遍历某个文件夹下的所有文件 以及删除所有文件
- php 删除文件夹 以及 文件夹所有文件
- cmd 删除所有文件夹以及子文件夹下的文件
- 删除某目录下的所有文件以及删除文件夹