antp Super Administrateur Champion des excuses bidons | J'avais trouvé ca y a un petit temps, je l'avais gardée pour pas devoir la réecrire en cas de besoin :
Code :
- Function Deltree(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
- Deltree(sFileName);
- end else begin
- if SearchRec.Attr <> faArchive then
- FileSetAttr(sFileName, faArchive);
- DeleteFile(sFileName);
- end;
- iIndex := FindNext(SearchRec);
- end;
- FindClose(SearchRec);
- RemoveDir(ExtractFileDir(sDir));
- Result := True;
- end;
|
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
|