用delphi删除一文件夹下面的全部文件
2007-10-24 15:10
417 查看
DeleteFile('c:/temp/abc.txt')
//删除了ABC.TXT文件。我如何一下子把C:/temp目录下的文件自动一个接一个的删除。如何做循环判断???
function TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录
var
search: TSearchRec;
ret: integer;
key: string;
begin
if NowPath[Length(NowPath)] <> '/' then
NowPath := NowPath + '/';
key := Nowpath + '*.*';
ret := findFirst(key, faanyfile, search);
while ret = 0 do begin
if ((search.Attr and fadirectory) = faDirectory)
then begin
if (Search.Name <> '.') and (Search.name <> '..') then
DeleteDirectory(NowPath + Search.name);
end else begin
if ((search.attr and fadirectory) <> fadirectory) then begin
deletefile(NowPath + search.name);
end;
end;
ret := FindNext(search);
end;
findClose(search);
removedir(NowPath);
result := True;
end;
//删除了ABC.TXT文件。我如何一下子把C:/temp目录下的文件自动一个接一个的删除。如何做循环判断???
function TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录
var
search: TSearchRec;
ret: integer;
key: string;
begin
if NowPath[Length(NowPath)] <> '/' then
NowPath := NowPath + '/';
key := Nowpath + '*.*';
ret := findFirst(key, faanyfile, search);
while ret = 0 do begin
if ((search.Attr and fadirectory) = faDirectory)
then begin
if (Search.Name <> '.') and (Search.name <> '..') then
DeleteDirectory(NowPath + Search.name);
end else begin
if ((search.attr and fadirectory) <> fadirectory) then begin
deletefile(NowPath + search.name);
end;
end;
ret := FindNext(search);
end;
findClose(search);
removedir(NowPath);
result := True;
end;
相关文章推荐
- ASP.NET MVC 启动定时任务删除某一文件夹下面的全部文件
- 518抽奖软件源码之:删除文件夹及下面的所有文件
- 除了某个文件或某个文件夹以外全部删除
- Java 删除空文件夹和文件夹及其下面的文件
- Python 批量删除文件夹下面指定类型的所有文件
- 删除指定文件夹下小于指定大小的全部文件
- linux 除了某个文件或某个文件夹以外全部删除
- delphi 删除指定文件夹下所有文件
- 【Linux】Linux删除指定文件夹下面 名称不包含指定字符的文件
- 读取和删除指定文件夹下的全部文件
- C# 文件操作(全部) 追加、拷贝、删除、移动文件、创建目录 修改文件名、文件夹名
- JavaSE 文件递归之删除&获取文件夹文件夹中全部的以.jpg的文件的绝对路径
- DOS命令,删除指定文件夹的全部内容 删除指定文件夹所有文件
- 系统盘中哪些文件夹下面的文件可以删除
- java 删除指定文件夹 以及文件下下面的所有文件
- C# 文件操作(全部) 追加、拷贝、删除、移动文件、创建目录 修改文件名、文件夹名
- C# 文件操作(全部) 追加、拷贝、删除、移动文件、创建目录 修改文件名、文件夹名
- Delphi删除指定文件夹及文件夹下所有子目录与文件
- linux shell 删除指定文件夹下面 名称不包含指定字符的文件
- python根据文件更改日期删除指定文件夹下面文件