Delphi 删除目录，二
Delphi 删除目录（二）
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sr:TsearchRec;
begin
if directoryExists( 'g:\a ') then
begin
if FindFirst( 'g:\a\*.* ',faAnyFile,sr)=0 then
begin
repeat
deleteFile( 'g:\a\ '+sr.Name);
until FindNext(sr) <> 0;
Findclose(sr);
end
else
CreateDir( 'g:\a ');
end
else
CreateDir( 'g:\a ');
end;
sysutils
procedure DeleteDirFile(ADir: string);
var
sr: TsearchRec;
begin
if not DirectoryExists(ADir) then Exit;
try
if FindFirst(ADir + '*.*', faAnyFile , sr) = 0 then
begin
repeat
DeleteFile(PAnsiChar(ADir + sr.Name));
until FindNext(sr) <> 0;
end;
finally
FindClose(sr);
end;
end;