Bonjour,
voila, j'ai trouvé un code dans la FAQ permettant, a partir d'une ou plusieurs extentions de les mettres dans un TListBox :
Le probleme c'est que quand j'ouvre un dossier, rien ne se passe.
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 TSearchRec Infos_fichier; if (!FindFirst(FilePath, faHidden, Infos_fichier)) do { for (int i = 0 ; i < Extensions->Count ; i++) { if (ExtractFileExt(Infos_fichier.Name).LowerCase() == Extensions->Strings[i].LowerCase()) { ListeFichiers->Add(Infos_fichier.Name); } } } while(!FindNext(Infos_fichier)); FindClose(Infos_fichier); }
Je me demande bien pourquoi......
Merci de votre aide.
Flo
Partager