Foros Club Delphi - Eliminar directorio con subdirectorio.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Eliminar directorio con subdirectorio. (https://www.clubdelphi.com/foros/showthread.php?t=95941)

pgranados

03-11-2022 21:34:15

Eliminar directorio con subdirectorio.

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

Estoy utilizando

Código Delphi [-]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

03-11-2022 23:58:31

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

Código Delphi [-]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

04-11-2022 10:44:36

Gracias por compartir la solución

Saludos

La franja horaria es GMT +2. Ahora son las 12:32:48.