Eliminar directorio con subdirectorio.

[pgranados]

Buen día compañeros, necesito eliminar un directorio el cual tiene subcarpetas y estas carpetas tienen archivos.

Estoy utilizando RemoveDir(RutaCarpeta)

Pero únicamente me elimina el directorio si no tiene subcarpetas dentro.

¿Alguien tiene algún ejemplo para aplicarlo en mi proyecto? Saludos.

[pgranados]

Ya lo resolví, si alguien necesita el código es:


use shellapi;
var
ShOp: TSHFileOpStruct;
begin
ShOp.Wnd := Self.Handle;
ShOp.wFunc := FO_DELETE;
ShOp.pFrom := PChar('RUTA'#0);
ShOp.pTo := nil;
ShOp.fFlags := FOF_NO_UI;
SHFileOperation(ShOp);

[ElKurgan]

Gracias por compartir la solución

Saludos