Comment supprimer un fichier ou dossier avec delphi

Comment supprimer un fichier ou dossier avec delphi - Programmation

Marsh Posté le 05-05-2001 à 13:22:22    

Si vous savez s'il existe une commande delphi pour effacer un fichier ou un dossier complet, ca m'interesse.
 
Merci

Reply

Marsh Posté le 05-05-2001 à 13:22:22   

Reply

Marsh Posté le 05-05-2001 à 14:20:13    

Citation :

Unité SysUtils
 
DeleteFile supprime un fichier du disque et renvoie False si elle échoue.
 
function DeleteFile(const FileName: string): Boolean;


 

Citation :

Unité SysUtils
 
RemoveDir efface un répertoire vide existant.
 
function RemoveDir(const Dir: string): Boolean;
 
Description
La valeur renvoyée est à True si un répertoire a été effacé, False si une erreur s'est produite.


 
en regardant vite fait comme ca j'ai pas vu de methodes pour supprimer un rep et ses fichiers/sous rep
il ne te reste donc k'a coder une petite fonction recursive :)


---------------
Hyndex - Meuaarf !! ReZo !!!
Reply

Marsh Posté le 05-05-2001 à 23:29:31    

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 :
  1. Function Deltree(sDir : String) : Boolean;
  2. var
  3.      iIndex    : Integer;
  4.      SearchRec : TSearchRec;
  5.      sFileName : String;
  6. begin
  7.      //Result := False;
  8.      sDir := sDir + '\*.*';
  9.      iIndex := FindFirst(sDir, faAnyFile, SearchRec);
  10.      while iIndex = 0 do
  11.      begin
  12.           sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
  13.           if SearchRec.Attr = faDirectory then
  14.           begin
  15.                if (SearchRec.Name <> '' ) and
  16.                          (SearchRec.Name <> '.') and
  17.                          (SearchRec.Name <> '..') then
  18.                     Deltree(sFileName);
  19.           end else 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;


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

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