Bonjour,

voila, j'ai trouvé un code dans la FAQ permettant, a partir d'une ou plusieurs extentions de les mettres dans un TListBox :

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);
}
Le probleme c'est que quand j'ouvre un dossier, rien ne se passe.
Je me demande bien pourquoi......
Merci de votre aide.
Flo