Nettoyer un répertoire de fichiers sans CMD

Version imprimable

04/06/2008, 23h11
Sundark

Nettoyer un répertoire de fichiers sans CMD

Salut, j'aimerais nettoyer un repertoire de fichier avec delphi !!!

Exemple, on à l'habitude de nettoyer nos dossier de source avec un bat qui del *.~*

bah j'aimerais faire la même chose en delphi, par exemple tous les fichiers residu.php ou tous les fichiers *.php3. (et en delphi^^)

Si vous savez comment faire, je suis preneur :)

Salut,

Est ce que le programme Delphi peut exécuter le fichier bat ou tu veux vraiment passer autre que par ce fichier ?

Bon, je t'ai fait une procédure ... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure DeleteTempFile(Dossier:string;Filtre:string);
var
  sr:TSearchRec;
begin
  Dossier:=IncludeTrailingPathDelimiter(Dossier);
  if FindFirst(Dossier+Filtre,faAnyFile,sr)=0 then
  begin
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then
      begin
        if(sr.Attr and faAnyFile)= sr.Attr then
        begin
          DeleteFile(Dossier+sr.Name); // ou DeleteFile(Dossier+sr.FindData.cFileName);
        end;
      end;
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
end;

Et un exemple d'utilisation :

Code:

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteTempFile('C:\test','*.php3');
end;

J'espère que ça te conviendra :)
A+ ;)

05/06/2008, 00h49
paulfr

Suppression des fichiers bak

bonjour

J'ai un programme sous delphi 3 qui supprime tous les fichiers modifiés :
.bak, ~?? , liste qui peut être complétée.
Si vous le désirez je peux vous l'envoyer.

:salut: PL
06/06/2008, 10h43
Sundark

ero-sennin > oui je veux passer par mon programme en delphi sans "surcharger" avec un BAT.

ero-sennin > Merci pour ta réponse, je test ça desuite !

paulfr > Pourquoi pas ?
07/07/2008, 22h20
paulfr

Suppression des copies de sauvegarde

Bonjour,

Très tardivement je vous transmets le programme SupFBaks qui supprime les copies de sauvegarde de Delphi (*.~*) ainsi que d’autres .
Vous pourrez l’adapter à vos besoins.
Mon programme qui scrute le contenu d’un volume était une version Turbo Pascal sous DOS, j’ai préféré l’actualiser, en particulier en adaptant la FAQ Borland ID23175.html.

Salutations
P Lautier