[TreeView] Export de l'arborescence

**fake** · 14/08/2003, 15h32

bonjour

j'ai un treeview avec des dossiers, des sous dossiers etc.....

je dois récréer dans un repertoire l'arbo du Treeview, sans les documents, je dois juste créer les dossiers... je m'en sors pas

juske là tout ce que j'arrive a faire c'est créer un dossier puis un sous dossier mais apres le sous dossier est aussi créé a la racine etc...

je sais pas si c'est clair

merci d'avance

**Nicolas.C** · 14/08/2003, 15h35

Montre nous ton code ?

Moi je ferai une fonction récursive qui prend comme paramètre le noeud en cours et le répertoire dans lequel il doit être créé. Cette fonction créerai le répertoire correspondant au noeud en le rajoutant au paramètre de répertoire reçu, et relancerai la fonction pour chacun des noeuds enfants.

**fake** · 14/08/2003, 15h54

mon code c'est pour l'instant

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
procedure TFRM_Principale.Button1Click(Sender: TObject);
var
i,j : integer;
begin
  destination := REP + '\VISIOROM\';
 
  for i := 1 to  TRV_OrgaCDROM.Items.Count-1 do
    begin
      Node := TRV_OrgaCDROM.Items[i];
      if Node.HasChildren = True then begin
        PrevNode := Node.Parent;
        if not DirectoryExists(destination + Node.Text) then
          begin
            mkdir(destination + Node.Text);
            for j := 0 to Node.Count-1 do begin
 
              mkdir(destination + Node.Text + '\' + Node.Item[j].Text);
            end;
          end;
      end;
    end;
end;

le probleme

[1]
**|_[2]
*******|_[3]

va créer les repertoires
[1]
**|_[2]

puis

[2]
**|_[3]

**Nicolas.C** · 14/08/2003, 16h03

Moi je te propose juste çà (non testé !):

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
 
procedure TFRM_Principale.Button1Click(Sender: TObject);
begin
 CreeSousRepertoires(REP + '\VISIOROM\',TRV_OrgaCDROM.TopItem);
end;
 
procedure CreeSousRepertoires(sDir:String;tnNoeud:TTreeNode); 
var 
i : integer; 
begin 
   CreateDir(sDir + tnNoeud.Text);
   for i:=0 to tnNoeud.Count-1 do
   begin
     CreeSousRepertoires(sDir + tnNoeud.Text+'\',tnNoeud.Item[i]);
   end;
end;