Главная страница | назад





Article #15777: Deleting a directory and all the directories files

 Question and Answer Database

FAQ777D.txt   Deleting a directory and all the directories files
Category   :VCL
Platform    :All
Product    :All 32 bit  

Question:
How can I delete a directory and all the directories files?


Answer:
The following example demonstrates deleting all the files in a
directory and then the directory itself. Additional processing would
be required to delete read only files and files that are in use.

procedure TForm1.Button1Click(Sender: TObject);
var
  DirInfo: TSearchRec;
  r : Integer;
begin
  r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo);
  while r = 0 do  begin
    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
      if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name))
         = false then
       ShowMessage('Unable to delete : C:\Download\test\' +
                   DirInfo.Name);
    r := FindNext(DirInfo);
  end;
  SysUtils.FindClose(DirInfo);
  if RemoveDirectory('C:\Download\Test') = false then
    ShowMessage('Unable to delete direcotry : C:\Download\test');
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99