Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2514 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [ Delphi ] Supprimer un repertoire et son contenu

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[ Delphi ] Supprimer un repertoire et son contenu

n°321105
Ciler
Posté le 02-03-2003 à 14:54:38  profilanswer
 

: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
mood
Publicité
Posté le 02-03-2003 à 14:54:38  profilanswer
 

n°321139
antp
Super Administrateur
Champion des excuses bidons
Posté le 02-03-2003 à 16:03:59  profilanswer
 

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;

n°321428
Ciler
Posté le 03-03-2003 à 10:15:59  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [ Delphi ] Supprimer un repertoire et son contenu

 

Sujets relatifs
[XML-HTML] newbie inside - interpreter du code HTML contenu dans XML[VBA-Access] Modifier le contenu d'un champ sans message
"Trier" le contenu d'une variableLire le contenu d'un rep a rebours...
pascal vers delphi[delphi] Evenement NavigateComplete2 de IE via OLE :??: Zion help plz
[Delphi] p'tit problème conversion cpp vers delphi[delphi inside] comment simuler un clik a l'ecran ?
[delphi]Taille de fenêtrereconstituer un fichier à partir de son contenu ascii ?
Plus de sujets relatifs à : [ Delphi ] Supprimer un repertoire et son contenu


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR