Comment récupérer les sous répertoires d'un répertoire

Version imprimable

14/02/2006, 13h55
charliejo

Comment récupérer les sous répertoires d'un répertoire
Bonjour,
J'ai regardé la FAQ et autres... mais je n'arrive pas à récupérer le nom des sous répertoires d'un répertoire
Code:

1 2 3 4 5 6 7 TSearchRec pSR; int trouve = FindFirst(dir+"\\*.*", faDirectory , pSR); while (trouve == 0) { DirName = pSR.Name; trouve = FindNext(pSR); }
Je récupère "." dans asDirName alors que je voudrais récupérer le nom du répertoire !!!

merci

Personnellement, j'ai fait ceci et cela fonctionne...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void FindDirectory(AnsiString FilePath, TStrings * ListeDossier)
{
 TSearchRec Infos_dossier; //information sur la recherche
 if (!FindFirst(FilePath + "\\*.*", faDirectory, Infos_dossier))//recheche du premier fichier du dossier
 
 do //faire
 {
  if (Infos_dossier.Attr == faDirectory)//dossier ok
  {
   if ((Infos_dossier.Name != ".") && (Infos_dossier.Name != ".."))
        ListeDossier->Add(Infos_dossier.Name);//ajout nom dossier trouvé
  }
 }
 while(!FindNext(Infos_dossier));//tant que fichier trouvé
 
 FindClose(Infos_dossier);//fin recherche
}

Salut,

Personnellement, j'utilise une routine réutilisable dans laquelle tu spécifies l'extention que tu recherches et un "bool" s'il faut prendre en comte les sous-dossiers :

Code:

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
 
//------------------------------------------------------------------------------
// Liste les fichiers d'extension spécifiée, dans le répertoire indiqué,
// et dans tous ses sous-répertoires si SousRep=true
//------------------------------------------------------------------------------
 
ListerFichiers(TStringList *liste,AnsiString NomRep,AnsiString extension,bool SousRep)
{
  AnsiString temp;
  TSearchRec Rec;
  int trouve;
 
  if (NomRep.SubString(NomRep.Length(),1) !="\\") NomRep+="\\";
  trouve = FindFirst(NomRep+"*.*", faAnyFile, Rec);
  while (trouve == 0)
  {
    temp = NomRep + Rec.Name;
    if (ExtractFileExt(temp).LowerCase() == extension.LowerCase())
       {
        liste->Add(temp);
       }
 
    if ((Rec.Attr && faDirectory >0) && (Rec.Name[1] != '.') && (SousRep == true))
      ListerFichiers(liste,NomRep+Rec.Name,extension,true);
    trouve = FindNext(Rec);
  }
  FindClose(Rec);
}

Note du modérateur : le code vient de là http://c.developpez.com/sources/bcb/...ndfileswithext

A+,

Bouillou