Необходимо подредактировать код.

[603vvn]

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

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


Сам код:

Код:


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;

[S@fer]

Убери строчку

RemoveDir(ExtractFileDir(sDir));

[603vvn]

Убирал, тогда программа не хочет удалять папки

т.е. все файлы удаляет кроме папок.

[Kotofff]

Уважаемый(ая), 603vvn, а что означает ваш ник ?
А то тут представляете Правила есть и там пункт 1.1 ...

[603vvn]

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

Уважаемый(ая), 603vvn, а что означает ваш ник ?
А то тут представляете Правила есть и там пункт 1.1 ...

Ник означает: цифры это кабинет в котором я сижу а три буквы это Ф.И.О.

Всем спасибо за попытку помочь!!! Уже разобрался Вот выложу код может кому нибудь пригодится: необходимо было добавить строку.

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);
  
  If sDir <> MainsDir then

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

[VintProg]

  If sDir <> MainsDir then

Вот это правильно!