Discussion :

[Freud44]

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 :

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
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

[Baxter67]

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

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
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;
}

[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.

[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.

[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

[Baxter67]

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
        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

[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?