[603vvn]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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;