[Fat]

Buenas neftali,

Gracias por responder. Lo que quiero hacer eliminar todas las carpetas y subcarpetas vacías de un directorio pero primero quiero que se muestren en un treeview para confirmar su eliminación. Para eliminarlas utilizo la siguiente función.

Código Delphi [-]
function Eliminarcarpetasvacias(const Ruta: string): boolean;
var
Exi: integer;
bBorrar: boolean;
SR: TSearchRec;
begin
Eliminarcarpetasvacias := False;
bBorrar := True;
Exi := FindFirst(Ruta + '\*.*', faAnyFile, SR) ;
   while (Exi = 0) do
   begin
   if (SR.Name[1] <> '.') then
   begin
   if (SR.Attr and faDirectory) <> 0 then
   begin
   if not Eliminarcarpetasvacias(Ruta + '\' + SR.Name) then
   bBorrar := False;
   end else
   begin
   bBorrar := False;
   end;
   end;
   Exi := FindNext(SR) ;
   end;   FindClose(SR) ;
   if bBorrar then
   Eliminarcarpetasvacias := RemoveDir(Ruta) ;
   end;

Ahora he intentado insertar el árbol de carpetas en un treeview y no he podido ni por asomo.

Gracias por todo.