Discussion :

[Walm]

Salutation, je recherche un composant imitant le TDirectoryListBox mais pouvant monter jusqu'au bureau... et aussi en un peut plus agréable visuellement !!
Ou mieux... si quelqu'un conai l'algorithme pour le faire avec un treeView (juste pour afficher les repertoires !!!!) ce serai mieux !!!!
Merci de votre aide!
Cordialement
Walm

[Trap D]

Voilà un bout de code qui permet de construire le TreeView :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
void __fastcall TFormPrincipale::AddChild(TTreeNode *Node1, char *NomDir)
{
    static int NumNode = 1;
    TTreeNode *Node2;
    WIN32_FIND_DATA FileData;
    HANDLE hSearch;
    int On = 0;
    char szNewPath[MAX_PATH];
    char szHome[MAX_PATH];
    sprintf(szHome, "%s\\*.*", NomDir) ;
    strcpy(szNewPath, BonDir(szHome));
    BOOL fFinished = FALSE;
 
    hSearch = FindFirstFile(szNewPath, &FileData);
    if (hSearch == INVALID_HANDLE_VALUE)
    {
        return;
    }
    while (!fFinished)
    {
        if (((FileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY )
            && FileData.cFileName[0] != '.')
        {
            On = 1;
            Node2 = TreeView1->Items->AddChild(Node1, FileData.cFileName);
            sprintf(szNewPath, "%s\\%s", NomDir,FileData.cFileName);
            AddChild(Node2, szNewPath);
        }
        if (!FindNextFile(hSearch, &FileData))
            fFinished = TRUE;
    }
    FindClose(hSearch);
}
 
void __fastcall TFormPrincipale::AddNode(TTreeNode *Node1, char *NomDir)
{
    WIN32_FIND_DATA FileData;
    TTreeNode *Node2;
    HANDLE hSearch;
    char szNewPath[MAX_PATH];
    char szHome[MAX_PATH];
    sprintf(szHome, "%s\\*.*", NomDir) ;
    strcpy(szNewPath, BonDir(szHome));
    BOOL fFinished = FALSE;
 
    hSearch = FindFirstFile(szNewPath, &FileData);
    if (hSearch == INVALID_HANDLE_VALUE)
    {
        return;
    }
 
    while (!fFinished)
    {
        if (((FileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY )
            && FileData.cFileName[0] != '.')
        {
            Node2 = TreeView1->Items->Add(Node1, FileData.cFileName);
            sprintf(szNewPath, "%s\\%s", NomDir, FileData.cFileName);
            AddChild(Node2, szNewPath);
        }
        if (!FindNextFile(hSearch, &FileData))
            fFinished = TRUE;
    }
    FindClose(hSearch);
}

C'est tiré tout simplement du MSDN.
Appel par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AddNode(NULL, "mon_rep");

Note : Bondir me permet de me raccrocher un Répertoire initial de parcour dont "mon_rep" est déjà un sous répertoire.

[Walm]

Salutation,
Merci de ton aide Trape D...
Ta fonction "Bondir"... C toi qui l'a codée ou elle est dans une bibliotheque?
Dans chaqun des cas precedent, si tu peux me donner le code ou la bibliotheque...
10000 Mercis pour ton aide
Bonne continuation
Cordialement
Walm

[Trap D]

Bondir est une fonction perso, elle concatène le nom de répertoire passé en argument à un autre nom de répertoire pour former un chemin absolu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
char *Bondir(char *rep)
{
   // chemin absolu du reprtoire passé en argument
   static  char chemin[MAX_PATH]; 
   // repertoire d'installation de données de mon application, 
   // obtenu par lecture dans la base de registre; il y a une initialisation que je ne donne pas ici
   static  char chemin[MAX_PATH]; 
 
   strcpy(chemin, repertoire);
   strcat(chemin, rep);
   return chemin;
}

[Walm]

Salutation,
et si je debute toujours par le bureau, ca ne simplifie pas la fonction et on n'est plus obligé de passer par ta fontion Bondir ?!
Cordialement
Walm

[Trap D]

Bondir en fait ne sert pas à grand chose pour la recherche, il suffit de faire le premier appel avec le chemin d'accès complet au répertoire, et après tu peux t'en passer.

[Walm]

SAlutation,
Est t'il nomal qu'avec cette mthode (qui quand même n'est pas rapide), je n'arrive pas a avoir comme racine quelque chose de plus haut qu'une unité de lecteur?

Ou si quelqu'un a une autre solution

Merci de votre aide
Cordialement
Walm

[Trap D]

Salut

Pour ce qui est de la vitesse, n'oublie pas qu'il y a exploration de l'aborescence complète des répertoires, tu peux accélérer la procédure en empêchant les affichages pendant l'exploration.

Pour avoir le bureau, je n'ai jamais essayé. Avec l'API GetOpenFilename, ça doit fonctionner.