Discussion :

[sweaty]

Bonjour à tous,

Je suis face à un problème provenant d'une application qui génère des fichiers de sauvegardes régulièrement et qui occupe de plus en plus d'espace sur le disque dur. Je cherche comment supprimer le plus ancien de ces fichiers . je ne sais pas encore si je ferais cette suppression à interval régulier, ou à chaque nouvelle sauvegarde générée.

Merci de votre aide car je débute en programmation et à part le site ou le forum, j'essaie de me débrouiller tout seul.
J'essaies t'aider un ami qui vient de créer une petite entreprise ( etc.... )

[aliwassem]

salut

vous pouvez utiliser la date de la modification de vos fichiers , c-v-d vous allez lister les fichiers de sauvgarde et comparez les dates avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
DateToStr(FileDateToDateTime(FileAge('c:\fichier.txt'))) ;
 
TimeToStr(FileDateToDateTime(FileAge('c:\fichier.txt'))) ;

et vous pouvez utiliser la Unite DateUtils pour les datetime fonction
comme comparison des dates et le temp.......

essaye avec ca...............

[Cl@udius]

Salut et bienvenue sur ce forum

Voici une petite fonction qui renvoie le nom du fichier le plus ancien d'un dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function OldestFile(const Dossier, Template: string): TFilename;
var
  Info: TSearchRec;
  CurrentTime: Integer;
begin
  result := '';
  if FindFirst(Dossier + Template, 0, Info) = 0 then
  begin
    repeat
      if (result = '') or
         (Info.Time < CurrentTime) then
      begin
        result := Info.Name;
        CurrentTime := Info.Time;
      end;
    until FindNext(Info) <> 0;
    FindClose(Info);
  end;
end;

Exemple d'utilisation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  ShowMessage(OldestFile('C:\MonDossier\Backups\', '*.sav'));

@+ Claudius

[sweaty]

Merci à vous de votre rapidité, je vais pouvoir créer mon aplication ce week-end.
je vous tiendrais au courant si je m'en sors

[sweaty]

J'ai essayé de mettre ne pratique vos informations. Ca marche lorsque j'utilise ShowMessage mais si je demande à supprimer le fichier, je m'apreçois qu'il existe toujours dans le dossier.

Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, StdCtrls;
 
type
  TForm1 = class(TForm)
 
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function OldestFile(const Dossier, Template: string): TFilename;
var
  Info: TSearchRec;
  CurrentTime: Integer;
begin
  result := '';
  if FindFirst(Dossier + Template, 0, Info) = 0 then
  begin
    repeat
      if (result = '') or
         (Info.Time < CurrentTime) then
      begin
        result := Info.Name;
        CurrentTime := Info.Time;
      end;
    until FindNext(Info) <> 0;
    FindClose(Info);
  end;
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
begin
Timer1.Interval :=30000;
DeleteFile(OldestFile('D:\Nouveau dossier\','*.bmp'));
end;
end.

Comment pourrais-je me passer de cet interval et le remplacer par la vérification de création d'un nouveau fichier.

Merci à tous et bon dimanche

Merci d'utiliser les balises code

[Cl@udius]

Salut

Dans la fonction OldestFile, remplace la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   result := Info.Name;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  result := Dossier + Info.Name;

Ainsi la fonction te renvoie le nom du fichier avec son chemin d'accès.

Et dans ton timer, vérifie que la fonction renvoie un résultat avant d'effectuer la suppression.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  FileToDelete: TFilename;
begin
  // Timer1.Interval :=30000; // Se situe normalement en dehors de l'event OnTimer.
  FileToDelete := OldestFile('D:\Nouveau dossier\','*.bmp')
  if FileToDelete <> '' then DeleteFile(FileToDelete);
end;

@+ Claudius