Lister des Répertoires d'un répertoire source

Version imprimable

Bonjour à tous !

J'ai besoin de sortir la liste de tous les répertoires présents dans un répertoire, pour cela j'ai trouvé un code sur la FAQ que j'ai tenté d'adapter à mes besoins.

Afin de vérifier que mon code fonctionne, j'écris dans un fichier txt les noms de dossiers qui sont censés être présents dans mon répertoire de base.

Le hic, mon code ne fonctionne pas, j'ai surement dû oublier du code...alors si quelqu'un peut m'aider, ca serait gentil.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 void Administration::CompareRoot() { String sourceRoot; TSearchRec sr; FILE *f; f = fopen("C:\\resultat.txt","w"); sourceRoot = ObjGestionFichierINI->GetFichier("ConfigurationRoot","Source"); if(FindFirst(sourceRoot,faDirectory,sr) == 0) { do { ShowMessage(sr.Name); fwrite(&sr.Name,sr.Name.Length(),1,f); } while (FindNext(sr) == 0); FindClose(sr); } }
l'objet "ObjGestionFichierINI" me récupère dans un fichier ini, un chemin d'accès qui est censé être le chemin de base pour le répertoire de basE. Le chemin est bien remonté par l'objet.

merci d'avance

essai avec des TStringList, je pense que c'est plus facile a utiliser que les fopen et fwrite

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
 
Code :
void Administration::CompareRoot()
{
        AnsiString sourceRoot;
        TSearchRec sr;
        TStringList *List = new TStringList();
 
        sourceRoot = ObjGestionFichierINI->GetFichier("ConfigurationRoot","Source");
 
        if(FindFirst(sourceRoot,faDirectory,sr) == 0)
        {
                do
                {
                        ShowMessage(sr.Name);
                        List->Add(sr.Name);
 
                } while (FindNext(sr) == 0);
                FindClose(sr);
                List->SaveToFile("C:\\resultat.txt");
        }
         List->Clear();
         delete List;
}

15/10/2008, 13h45
Freud44

j'y ai pensé, mais bien avant de coder des TStringList, j'ai ajouté mon showmessage, donc théoriquement, à chaque dossier trouvé, il doit m'afficher un ShowMessage avec le nom de dossier, et la il ne le fait pas...

donc j'ai l'impression qu'il ne me renvoie que le nom du dossier source, etpas les dossiers contenus dans le dossier source.
15/10/2008, 13h47
pottiez

Avant d'aller lire dans un .ini, essaye peut être avec un chemin directement mis dans le code, voir si cela fonctionne comme ça.
15/10/2008, 14h07
Freud44

Avec ou sans ini, ca donne le même résultat.

Ex: Sur mon ini, j'ai ->C:\Windows, eh bien mon ShowMessage, me renvoie seulement "Windows" soit le nom du dossier de basE.Par contre j'ai aps les autres dossiers contenus.

Si je tape en dur "C:\Windows\" ou "C:\\Windows", ca fait le même résultat que si j'utilise le fichier ini.

donc j'en viens à me demander si mon code fonctionne au niveau du do-while. J'ai pas l'impression qu'il arrive à lire les répertoires

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        AnsiString sourceRoot;
        TSearchRec sr;
        TStringList *List = new TStringList();

        sourceRoot = "c:\\";
 
        if(FindFirst(sourceRoot+"*",faDirectory,sr) == 0)
        {
                do
                {
                        if( ((sr.Attr & faDirectory) ==  faDirectory) && sr.Name != "." && sr.Name != "..")
                        {
                                ShowMessage(sr.Name);
                                List->Add(sr.Name);
                        }
 
                } while (FindNext(sr) == 0);
                FindClose(sr);
                List->SaveToFile("C:\\resultat.txt");
        }
         List->Clear();
         delete List;

voila ce code fonctionne

remplace le sourceroot par la donnée de ton ini

sa doit etre de la forme c:\\Test\\

dans le findfirst on ajoute * donc au final il faut passer c:\\Test\\* pour que la fonction fonctionne

Cordialement Baxter

15/10/2008, 16h06
Freud44

Ici dans ce code, si on met "C:\\" en sourceRoot, il va se limiter aux dossiers Windows;Progam Files etc...mais ne rentrera pas dans ces dossiers.

Donc je suppose que si je veux aussi lire les sous répertoires, je dois effectuer une lecture récursive?
15/10/2008, 16h07
pottiez

Tout à fait :king:
15/10/2008, 16h11
Baxter67

A priori!
j'ai pas trouvé de fonction qui est capable de le faire
dsl

Cordialement Baxter
15/10/2008, 16h29
Freud44

Merci à tous pour votre aide!

Pour la récursivité, ca devrait aller, c'est pas bien compliqué, suffit juste que je fasse correctement mes rappels de fonctions.
15/10/2008, 17h31
Freud44

Dernière question.

Rassurez moi, l'objet TSearchRec ne peut retourner le chemin d'accès du fichier trouvé?
j'en ai besoin pour la lecture récursive...mais je ne vois pas comment retourner mon cemin d'accès quand je suis sur un nouveau dossier (afin de lire les sous dossiers à nouveau).

merci d'avance

Non, mais tu n'en as pas besoin, tu va l'avoir par ta fonction directement, exemple en reprenant le dernier code de Baxter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
void maFonction(String sourceRoot, TStringList* List)
{
        TSearchRec sr;
 
        if(FindFirst(sourceRoot+"*",faDirectory,sr) == 0)
        {
                do
                {
                        if( ((sr.Attr & faDirectory) ==  faDirectory) && sr.Name != "." && sr.Name != "..")
                        {
                                ShowMessage(sr.Name);
                                List->Add(sr.Name);
                                maFonction(sourceRoot+sr.Name+"\\", List);
                        }
 
                } while (FindNext(sr) == 0);
                FindClose(sr);
        }
}

Et tu appelle ta fonction comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
        AnsiString sourceRoot;
        TStringList *List = new TStringList();
 
        sourceRoot = "c:\\";  //ici tu va chercher ton chemin dans le fichier ini
 
        maFonction(sourceRoot, List);
 
        List->SaveToFile("C:\\resultat.txt");
        List->Clear();
        delete List;

15/10/2008, 19h21
blondelle

Salut Freud44
Voici un lien sur la copie d'un repertoire contenant des sous repertoires

Citation:

http://www.developpez.net/forums/d43...ntenu-dossier/

Si ce n'est pas vraiement ce que tu cherche je pense que cela va t'aider