Cherche composant comme le TDirectoryListBox...

Version imprimable

01/04/2004, 13h20
Walm

Cherche composant comme le TDirectoryListBox...

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

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

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

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.

01/04/2004, 14h26
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

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:

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

02/04/2004, 15h43
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
02/04/2004, 16h04
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.
30/04/2004, 10h28
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
30/04/2004, 16h31
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.