Bonjour,
Je souhaite créer un petit programme me permettant de choisir un répertoire dont il faut lister le contenu (noms des fichiers dans un premier temps).
Grâce à la FAQ, je me suis débrouillé et, en changeant un peu le code, j'y suis arrivé. Le programme me permet de spécifier le dossier à utiliser et me liste son contenu dans un fichier qu'il crée. Le soucis est que j'aimerais que cette liste soit ordonnée sur la date de création des fichiers, c'est-à-dire que le premier écrit dans le fichier devra être le fichier le plus vieux, et ainsi de suite jusqu'au plus récemment créé. Je n'ai pas trouvé comment faire, j'espère que vous pourrez me filer un coup de main.
Voici mon code :
Merci d'avance.
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 void __fastcall TInterface::Button3Click(TObject *Sender) { if(SelectDirectory("Choose a directory", "D:\\Documents and Settings\\anonymous\\Bureau", directory)) logFileEdit->Text = directory; } void __fastcall TInterface::makeBinButtonClick(TObject *Sender) { if(directory == "") Application->MessageBox("Choose a directory to analyse please", "ERROR", MB_OK); else { AnsiString FilePath = logFileEdit->Text; TStrings *ListeFichiers = new TStringList; TSearchRec Infos_fichier; if (!FindFirst(FilePath+"\\*.*", faAnyFile, Infos_fichier)) { do { ListeFichiers->Add(Infos_fichier.Name); } while(!FindNext(Infos_fichier)); } FindClose(Infos_fichier); if(ListeFichiers->Count > 2) { ListeFichiers->SaveToFile("D:\\Documents and Settings\\anonymous\\Bureau\\nameFile.txt"); Application->MessageBox("File created", "ERROR", MB_OK); } else Application->MessageBox("There are no files in this directory", "ERROR", MB_OK); } }
Partager