[ Delphi ] Supprimer un repertoire et son contenu

Supprimer un repertoire et son contenu [ Delphi ] - Delphi/Pascal - Programmation

Marsh Posté le 02-03-2003 à 14:54:38    

:hello:  
 
Voila mon probleme, j'aurai besoin de supprimer tout un repertoire (il contient des fichiers mais pas de sous repertoire). Du coup
RemoveDir est forfait (le repertoire doit etre vide).
 
Il y a une commande pour virer tout le repertoire sans avoir a supprimer avant les 156 fichiers qui sont dedans ?


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Marsh Posté le 02-03-2003 à 14:54:38   

Reply

Marsh Posté le 02-03-2003 à 16:03:59    

Faut supprimer tous les fichiers, y a rien de prévu dans l'OS pour faire autrement [:spamafote]
 

Code :
  1. function Deltree(sDir: string): Boolean;
  2. var
  3.   iIndex: Integer;
  4.   SearchRec: TSearchRec;
  5.   sFileName: string;
  6. begin
  7.   sDir := sDir + '\*.*';
  8.   iIndex := FindFirst(sDir, faAnyFile, SearchRec);
  9.   while iIndex = 0 do
  10.   begin
  11.     sFileName := ExtractFileDir(sDir) + '\' + SearchRec.Name;
  12.     if SearchRec.Attr = faDirectory then
  13.     begin
  14.     if (SearchRec.Name <> '' ) and
  15.        (SearchRec.Name <> '.') and
  16.        (SearchRec.Name <> '..') then
  17.        Deltree(sFileName);
  18.     end else
  19.     begin
  20.       if SearchRec.Attr <> faArchive then
  21.         FileSetAttr(sFileName, faArchive);
  22.       DeleteFile(sFileName);
  23.     end;
  24.     iIndex := FindNext(SearchRec);
  25.   end;
  26.   FindClose(SearchRec);
  27.   RemoveDir(ExtractFileDir(sDir));
  28.   Result := True;
  29. end;

Reply

Marsh Posté le 03-03-2003 à 10:15:59    

antp a écrit :

Faut supprimer tous les fichiers, y a rien de prévu dans l'OS pour faire autrement [:spamafote]
 

Code :
  1. function Deltree(sDir: string): Boolean;
  2. var
  3.   iIndex: Integer;
  4.   SearchRec: TSearchRec;
  5.   sFileName: string;
  6. begin
  7.   sDir := sDir + '\*.*';
  8.   iIndex := FindFirst(sDir, faAnyFile, SearchRec);
  9.   while iIndex = 0 do
  10.   begin
  11.     sFileName := ExtractFileDir(sDir) + '\' + SearchRec.Name;
  12.     if SearchRec.Attr = faDirectory then
  13.     begin
  14.     if (SearchRec.Name <> '' ) and
  15.        (SearchRec.Name <> '.') and
  16.        (SearchRec.Name <> '..') then
  17.        Deltree(sFileName);
  18.     end else
  19.     begin
  20.       if SearchRec.Attr <> faArchive then
  21.         FileSetAttr(sFileName, faArchive);
  22.       DeleteFile(sFileName);
  23.     end;
  24.     iIndex := FindNext(SearchRec);
  25.   end;
  26.   FindClose(SearchRec);
  27.   RemoveDir(ExtractFileDir(sDir));
  28.   Result := True;
  29. end;




 
Merci  :jap:


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed