Effacer les fichiers inutiles, facilement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 046 fois - Téléchargée 36 fois

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
Messages postés
2
Date d'inscription
mardi 22 octobre 2002
Statut
Membre
Dernière intervention
31 janvier 2003

Personellement, je fais un batch, dans tous mes répertoires de projets que j'exécute avant de donner mes sources :
Del *.~*
Del *.dcu
Del *.res
etc...

Il est vrai qu'il falait penser au presse papier qui permet d'éviter d'avoir 350 Bat...
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
Oui c'est peut-être risqué mais bien utile, il faut peut-être alors le brider sur la base de répertoire contenant les projets.

Quand aux fichiers ~.xxx je suis d'accord avec toi, c'est utile sur le momment mais pas sur le long terme.
Messages postés
131
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
19 janvier 2004

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/
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

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....
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
2
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
Afficher les 7 commentaires

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.