Discussion :

[Beauserge]

Bonjour à tous

Dans mon programme, je fais une copie du fichier listecredit.txt (comme sauvegarde) dans un répertoire \backup
J'aimerai que le fichier créer ne porte pas le nom exact du fichier source mais qu'il contienne la date et heure du jour.

Pour cela, j'ai ajouté un DateTimePicker. Je sais comment récupérer la date et heure mais je n'arrive pas à insérer cette variable dans mon code (le code d'origine sans l'ajout est en bas de post)

j'ai essayé

Code :

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

1
2
try       // fichier copié dans repertoire destination (backup)
      DT1 := TFileStream.Create(ExtractFilePath(Application.EXEName) + 'backup\listecredit' + madate + '.txt', fmCreate);

mais ça génère une erreur

Pour résumé, je voudrais que le nom de fichier soit (ex: listecredit29031717h730) date et heure d'enregistrement du datetimepicker

A vous lire pour votre aide
Beauserge

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
procedure TForm1.Button4Click(Sender: TObject);
var
ST1,DT1 : TFileStream;
madate: string;
begin
DateTimePicker1.DateTime:=now; //on actualise le Datetimpepicker
madate:=DateToStr(DateTimePicker1.DateTime);  //conversion de la date en string
 
          // on vérifie si le dossier existe déja
if not DirectoryExists(ExtractFilePath(Application.EXEName)+('\backup')) then
   CreateDir(ExtractFilePath(Application.EXEName)+('\backup'));        //si non il est créee
 
try           // fichier source dans repertoire source
    ST1 := TFileStream.Create(ExtractFilePath(Application.EXEName) + 'listecredit.txt', fmOpenRead);
 
    try       // fichier copié dans repertoire destination (backup)
      DT1 := TFileStream.Create(ExtractFilePath(Application.EXEName) + 'backup\listecredit.txt', fmCreate);
 
      try
        DT1.CopyFrom(ST1, 0);
       finally
        DT1.free;         
      end;
    finally
      ST1.Free;
 
    end;

[Cirec]

Bonjour,

l'erreur vient du fait qu'il y a des caractères interdit pour un nom de fichier dans MaDate

il faut au minimum les virer ou les remplacer Ex.

Code :

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

1
2
3
  MaDate := StringReplace(MaDate, '/', '', [rfReplaceAll]);
  MaDate := StringReplace(MaDate, ':', '', [rfReplaceAll]);
  MaDate := StringReplace(MaDate, ' ', '', [rfReplaceAll]);

Cordialement,
@+

[ShaiLeTroll]

ou la fonction FormatDateTime dédiée pour cela

Code :

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

madate:=FormatDateTime('yyyymmddhhnnss',DateTimePicker1.DateTime);  //conversion de la date en string

[anapurna]

salut

Code :

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

DT1 := TFileStream.Create(ExtractFilePath(Application.EXEName) +Format('backup\listecredit%s.txt',[FormatDateTime('yyyymmddhhnnss',DateTimePicker1.DateTime)]), fmCreate);

[gbegreg]

Comme ShaiLeTroll et anapurna, j'aurai utilisé FormatDateTime mais avec la date et l'heure courante (sans passer par le DateTimePicker1) car il s'agit d'un backup d'un fichier. Le fichier "backupé" peut très bien avoir la date et l'heure au moment où le traitement passe :

Code :

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

FormatDateTime('yyyymmddhhnnss',now)

[Andnotor]

Attention également à ça ExtractFilePath(Application.EXEName) comme répertoire de travail. Ca marche au design et se plante en environnement réel avec un petit access denied

[Cirec]

ou la fonction FormatDateTime dédiée pour cela ...

je dois me faire trop vieux ou je ne pratique pas assez parce que ...
... je l'avais complètement zappé celle-la !!!

du coup pour respecter le prototype initial de Beauserge

Code :

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

madate:=FormatDateTime('ddmmyyhh"h"ns',DateTimePicker1.DateTime);

[Beauserge]

Merci beaucoup à tous pour vos réponses pertinentes

J'ai fait un mix avec le code d'Anapurna et le FormatDateTime de Cirec et c'est ce qu'il me fallait à la virgule prés.

Cordialement
Beauserge