简单问题,删除所有文件

Question

程序本身建立了一个temp文件夹,请问有没有一个简单快捷的方式来清空此文件夹?

Answer 1

rmdir 直接删除这个文件夹！

Answer 2

用DeleteFile(filedir:string)函数可以直接删除的。

Answer 3

◇[DELPHI]关于文件、目录操作
Chdir('c:\abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名，无'\'
Getdir(0,s);//取工作目录名s:='c:\abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀

Answer 4

哈哈～～晚了。
清除文件。恩～～DOS状态下
format或是fdisk。哈哈哈。

Answer 5

function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
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.FindHandle);
end;
end;

Answer 6

可以用DLP或API，需要注意的是在删除前要先查找该目录存在否，然后再清除，不然会报错的，还有临时文件夹可以用API提供的系统函数生成的 ：）