Carpetas y subcarpetas vacias

[Fat]

Buenas a todos,

Después de intentar infinidades de cosas para lograr mi objetivo a sido imposible lograrlo por lo que me apoyo en vosotros. Les cuento, necesito insertar en un TreeView todas las carpetas y subcarpetas que estén vacías en un directorio especifico.

Muchas gracias nuevamente.

[Neftali [Germán.Estévez]]

¿Y cual es la parte que te da problemas?
¿Recorrer carpetas? ¿Buscar y encontrar las vacías? ¿Añadirlas al TreeView?

¿Puedes poner el código que estás utilizando?

[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.