Bonjour à toutes et à tous,
Avec une procédure, j'affiche dans un Tmemo, la liste de mes fichiers par ordre du jour 01, 02, 03, etc.… :
Cette méthode fait que les fichiers sont classé par le jour et non par le mois donc le fichier du 03/09/2019 se situe après ceux du 02/10/2019.01/10/2019 14:47:50
02/09/2019 07:29:35
02/10/2019 14:50:43
02/10/2019 14:50:44
03/09/2019 13:15:46
Ma demande consiste à obtenir la liste de mes fichiers sur le mois.
Voici mon code :
Si c'est possible, merci d'une aide éventuelle.
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 var FL: TStringList; fichier, chemin : string; begin chemin := 'C:\Test' ; fichier := opd1.filename; if opd1.Execute then begin FL := TStringList.Create; FL.Sorted := True; GetFileList( FL, chemin, '*' ); Memo1.Lines.Assign(FL); FL.Free; end; end;
@+,
cincap
Partager