удалить файлы и папки

[Viten2]

Люди! Помогите!!!
Надо удалить папку вместе с содержимым. Внутри файлы и папки. Какие заранее неизвесто - могут меняться. В папках также могут быть файлы и папки и т.д.
Как это сделать?

[zetrix]

function MyRemoveDir(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
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

[Viten2]

СПАСИБО!!! Работает.

[603vvn]

Смотрю тема очень старая, но если кому не трудно мне нужен этот код, но мне нужно удалить всё кроме самой папки которую указываю.

Пожалуйста помогите.

Заранее благодарен.

[MyIE]

function MyRemoveDir(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
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  //RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

[hacknet]

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

function MyRemoveDir(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
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

ребят подскажите, вызываю функцию так

procedure TForm1.Button1Click(Sender: TObject);
begin
MyRemoveDir(memo1.Lines[0]);
end;

в мемо прописываю полный путь естественно к папке, если папки нет, хотелось бы что выводило сообщение, и если папки удаленна! помогите!

p.s уважаемые модераторы,извените за то что не воспользовался тегом, для кода, инет не позваляет!

[DenNik2006]

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

ребят подскажите, вызываю функцию так

procedure TForm1.Button1Click(Sender: TObject);
begin
MyRemoveDir(memo1.Lines[0]);
end;

в мемо прописываю полный путь естественно к папке, если папки нет, хотелось бы что выводило сообщение, и если папки удаленна! помогите!

p.s уважаемые модераторы,извените за то что не воспользовался тегом, для кода, инет не позваляет!

procedure TForm1.Button1Click(Sender: TObject);
begin
  // проверяем наличие папки
  if DirectoryExist(memo1.Lines[0]) then
  MyRemoveDir(memo1.Lines[0]) else ShowMessage('Dir not found!');
end;

[hacknet]

спасибо! разобрался

ребят а подскажите можно ли удалить папку, к примеру с командой в memo "del и полный путь" т.е если в memo сначало прописано del а потом сразу полный путь и токо тогда удалиться папка?

[ZuBy]

сделай так:

path:=copy(memo1.lines[0], 5 {"del }, length(memo1.lines[0]) - 5);

[hacknet]

а не могли бы Вы привести полный код при нажатии кнопки, у меня не выходит?
зарание спасибо!