Effacer les fichiers inutiles, facilement

0/5 (7 avis)

Snippet vu 6 416 fois - Téléchargée 38 fois

Commenter

Contenu du snippet

c'est un code sans aucune prétention,
il as pour but d'être utile c'est tout.

ce code efface les fichiers avec les extentions designées dans le source,
le chemin du répertoire est prix dans le presse papier.

pour ma part je m'en sert tt les jours.

explication:
- vous mettez le prog compilé dans la barre de lancement rapide.
- copiez le chemin du dossier ou ce trouve les fichiers indésirablent
- clicquez sur l'icone du prog

les fichiers disparaissent

Source / Exemple : 


program Efface;

uses ClipBrd, windows, Sysutils;

Const
   MaxExtensions = 15;
   Extensions :array[0..14]of string =(
                     '*.~ds','*.dsp','*.~ddp','*.bak','*.~inc',
                     '*.~dfm','*.~pas','*.dcu','*.ddp','*.~dpr',
                     '*.cfg','*.~ddp','*.~dp','*.~df','*.~pa');

{$r *.res}

 var P :PChar;
     trouve :integer;
     Chemin :string;
     src :TSearchRec;
     i :integer;
begin
 GetMem(P,255);
 Clipboard.GetTextBuf(P,255);
 Chemin := P + '\';
 FreeMem(P);

    for i := 0 to MaxExtensions - 1 do
     begin
      trouve := FindFirst(Chemin + Extensions[i], faAnyFile, src);
        while trouve = 0 do
          begin
           deletefile(pchar(chemin + src.name));
           trouve := FindNext(src);
          end;
          findclose(src);
     end;

  clipboard.Clear;
  beep;
end.

Conclusion :


copiez le code dans un fichier, et nommez le efface.dpr, puis compilez.

http://delphicool.developpez.com

A voir également

Ajouter un commentaire Commentaires
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
22 janv. 2003 à 23:36
Ce qui serait top, c'est de faire la même chose en récursif pour effacer les fichiers aussi dans les sous-répertoires.
DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009
23 janv. 2003 à 07:46
Là ça devient risqué.
Car il ya des risques d'effacer des DCU que l'on ne voulait pas (par exemple les compos sans source ou autre)
cs_Amadeus Messages postés 123 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 15 mars 2004 2
23 janv. 2003 à 08:57
Pour infos les '*.~pas', *.~dfm', *.~dpr' et compagnie sont des sauvegardes des paramètrages et des sources du projet, donc si ils sont présents c'est que tu as choisi de les avoir par sécurité alors pourquoi les supprimés réguliérement. Si tu ne veux pas les avoir il suffit de désactiver la sauvegarde automatique
DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009
23 janv. 2003 à 11:11
je sais que ce sont des sauvegarde, et d'autre les param du projet

je ne garde que le .dof.

Pour etre plus clair Amadeus:
J'ai laissé cette option dans l'IDE delphi, car c'est bien utile, si l'on sauve trop vite un projet et que l'on as fait une erreur,
pour les .dcu, je crois qu'il n'y as pas d'option pour ne pas les generer, alors je les met direct à la corbeille, dans les paramettre du projet.


Ce source est utile, quand tu telecharge un projet qui est bourré des .dcu et j'en passe.

etc....
cs_bgK Messages postés 131 Date d'inscription vendredi 7 juin 2002 Statut Membre Dernière intervention 19 janvier 2004
23 janv. 2003 à 17:29
J'avais fait un programme de ce genre, il y a quelques mois, mais le mien permet en plus de zipper les projets Delphi et il s'intègre dans le menu contextuel des fichiers DPR. Il est disponible ici :
http://bgkdel.free.fr/projets/
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DelphiCool)