El ejemplo concreto es el siguiente:
Filtre := Cami+'*.*';
if FindFirst(Filtre,faDirectory,Dir) = 0 then begin
repeat
if (Dir.Name<>'.') and (Dir.Name<>'..') and (Dir.Attr=faDirectory) then
begin
// Creem el directori
Nod := Ar.Items.AddChild(Pare,UpperCase(Dir.Name));
Nod.ImageIndex := 0;
Nod.SelectedIndex := 0;
// recursivamen ens cridem per carregar .ia i subdirectoris
Carregar(Cami+Dir.Name+'\',Nod);
end;
until FindNext(Dir) <> 0;
end;
FindClose(Dir);
Donde filtro tendra un valor como por ejemplo 'c:\sql\*.*' i pongo el atributo faDirectory porque lo que busco son solo los subdirectorios.
Vuelvo a insistir que este codigo funciona perfectamente en windows xp home pero en una maquina con windows xp pro no funciona.
Se que es curioso pero es el mismo programa funcionando en dos maquinas diferentes.
Gracias.
|