[TreeView] Export de l'arborescence

Version imprimable

14/08/2003, 14h32
fake

[TreeView] Export de l'arborescence

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

merci d'avance
14/08/2003, 14h35
Nicolas.C

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.

mon code c'est pour l'instant

Code:

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]

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

Code:

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;

[edit]
Argh y'avais 2 erreurs ! :oops:

14/08/2003, 15h15
fake

8O wouah :D super ça marche [meme avant l'edit] enfin avec quelques modifs

merci bcp :!: