Hola tios, estoy intentando rellenar un treeview recursivamente con las carpetas y ficheros de texto de un directorio, y si solo hay una subcarpeta me funciona perfectamente, pero cuando paso de ahi se me va de bola ... a ver si me arrojais un poco de luz
Gracias
Código Delphi
[-]
procedure TForm1.RastreaDir( Dir: string );
var
FileSearch: TSearchRec;
nodo1,nodo2,nodo3,nodo4,nodo5,nodo6, nodo7, nodo8, nodo9,nodo10: TTreeNode;
begin
num := num +1;
ChDir ( Dir );
if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
repeat
if ( (FileSearch.Attr and fadirectory) = fadirectory) then
begin
if (FileSearch.Name <> '.')and (FileSearch.Name <> '..') then
begin
if num = 1 then
begin
nodo1 := arbol.Items.Add(nil,filesearch.name);
nodo1.selectedindex := num;
end
else
begin
nodo1 := arbol.Items.Addchild(nodo1,filesearch.name);
nodo1.selectedindex := num;
end;
RastreaDir( Dir + '\' + FileSearch.Name );
end;
end
else
begin
Memo1.Lines.Add( Dir +'\'+FileSearch.Name );
arbol.Items.AddChild(nodo1,inttostr(num) + ' ' + filesearch.name);
end;
until FindNext( FileSearch ) <> 0;
num := num -1;
FindClose( FileSearch );
end;