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.