удалить файлы и папку (с содержимым)

[fate]

удаляешь все файлы в папке, если есть подкаталоги рекурсивно обходишь их и удаляешь файлы в них тоже, а потом удаляй пустые папки функцией RemoveDir

[stebelek]

fate, можешь в аське объяснить подробно, просто я ноль в делфи

[fate]

тебе же в 6 посте дали ссылку на такой способ удаления

[Serge_Bliznykov]

stebelek

1) способ удаления из Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  DelDir('C:\temp');
  SysUtils.DeleteFile('skynet.log');
.....

ну, или, если папка находится в текущей для EXEшника папке, можно и так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DelDir('temp');
  SysUtils.DeleteFile('skynet.log');
.....

ВНИМАНИЕ!!! ОЧЕНЬ желательно указывать ПОЛНЫЙ путь к папке!

p.s. кстати к файлам тоже желательно указывать ПОЛНЫЙ путь

2) способ через BAT файл:

rmdir C:\Temp /S /Q
erase skynet.log /Q
erase files.dat /Q
....

[Aliens_wolfs]

Может этот пример чем поможет.
Удаляет все в папке.

//Вывести список всех файлов директории
procedure ListFile(const Path : string; FileList: TStrings; ViewPath: boolean=false; Filtr: string='*.*');
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + Filtr, faAnyFile, SR) = 0 then
   begin
     repeat
     application.ProcessMessages;
       if ((sr.Attr and faDirectory) <> faDirectory) then
       begin
       if not ViewPath then
         FileList.Add(SR.Name)
         else
        FileList.Add(Path+SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

 //Вывести список всех директории в директории
 procedure ListDir(Const Path: string; FileList: TStrings; ViewPath: boolean=false);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*', faAnyFile, SR) = 0 then
   begin
     repeat
      application.ProcessMessages;
       if ((sr.Attr and faDirectory) = faDirectory)and(SR.Name <> '.')and(SR.Name <> '..') then
       begin
         if not ViewPath then
         FileList.Add(SR.Name)
         else
        FileList.Add(Path+SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

//Удаление директорий с содержимым
function DelDir(Const dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

//Удаление всех папок и файлов в директории
procedure DeleteAll(Const dir: string);
var
i: integer;
DelList: TStringList;
begin
DelList:=TStringList.Create;
//1-этап Создать список файлов в директории и удалить
ListFile(dir, DelList, true);
for i:=0 to DelList.Count-1 do begin
application.ProcessMessages;
//удаляем файлы из списка
if not DeleteFile(DelList[i]) then
ShowMessage('Не могу удалить файл: ' + DelList[i]);
end;

DelList.Clear;
//2-этап Создать список директорий
ListDir('c:\temp\', DelList, true);
for i:=0 to DelList.Count-1 do begin
application.ProcessMessages;
//Удаляем директории из списка
if not DelDir(DelList[i])then
ShowMessage('Не могу удалить директорию: ' + DelList[i]);
end;
DelList.Free;
end;


//Использование
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
//Удаляем все папки и файлы в директории
DeleteAll('c:\temp\');
end;

[HyperZen]

// Удаляем все файлы и подкаталоги в директории (рекурсия)
function RemoveAllDir(sDir: String): Boolean;
var
  iIndex : Integer;
  SearchRec : TSearchRec;
  sFileName : String;
begin
  Result := False;
  sDir := sDir + '\*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
    begin
      sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
      if SearchRec.Attr = faDirectory then
        begin
          if (SearchRec.Name <> '' ) and
          (SearchRec.Name <> '.') and
          (SearchRec.Name <> '..') then
          RemoveAllDir(sFileName);
        end
        else
          begin
            if SearchRec.Attr <> faArchive then
              FileSetAttr(sFileName, faArchive);
              SysUtils.DeleteFile(sFileName);
          end;
            iIndex := FindNext(SearchRec);
    end;
      SysUtils.FindClose(SearchRec);
      RemoveDir(ExtractFileDir(sDir));
      Result := True;
end;

[ViToTiV]

да уж.... народ лёгких путей не ищет.... иногда и хелп полезно почитать:

uses IOUtils;
......
TDirectory.Delete('путь к папке', True);

[vovk]

Сообщение от ViToTiV

да уж.... народ лёгких путей не ищет.... иногда и хелп полезно почитать:

uses IOUtils;
......
TDirectory.Delete('путь к папке', True);

Это в стандарной дельфи есть? хмм

[ViToTiV]

в хелпе сказано версия 2010 и выше

[Serge_Bliznykov]

в хелпе сказано версия 2010 и выше

ничего себе у Вас подходы к "лёгким путям"!

Приведённый в теме код прекрасно будет работать под ЛЮБОЙ версией Delphi (у меня, например, Delphi 5).

впрочем, если у кого-то из тех, кто наткнётся на данную тему будет Delphi версии 2010 (или старше), ему Вас совет будет полезен!