Bonjour,

Dans mon application, j'ai besoin de pouvoir séléctionnez tous les sous-arboresence d'un dossier ou disque dur, afin d'y recuperer tous les fichiers Mp3.

J'arrive déjà à récuperer tous les fichiers mp3 d'un dossier mais je n'arrive pas à récupérez les fichiers qui se trouve dans un sous-dossiers.

Voici le code que j'utilise pour l'instant:

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
SelectDirectory("Ouvrez un dossier de fichier MP3","",v_dossier_ouvrir);
v_dossier_ouvrir += "\\";
 
Extensions->Add(".mp3");
ChargeListe(v_dossier_ouvrir, Extensions, l_playbox->Items);
 
void ChargeListe(AnsiString FilePath, TStringList * Extensions, TStrings * ListeFichiers)
{
  TSearchRec Infos_fichier;
  if (!FindFirst(FilePath+"*.*", faAnyFile, 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);
}
Merci d'avance

-------------------------
balises [CODE] ajoutées par LFE
pensez-y à l'avenir