borrar carpeta

[guillotmarc]

Hola.

Hoy he necesitado esta función, y la he modificado ligeramente :

function ALaPapelera(Fichero:string):boolean;
var 
  FileOp: TSHFileOpStruct;
begin 
  FillChar(FileOp,SizeOf(FileOp),#0);
  with FileOp do 
  begin 
    Wnd:= Application.Handle;
    wFunc:= FO_DELETE;
    pFrom:= PChar(Fichero+#0#0);
    fFlags:= FOF_SILENT or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  end; 
  Result:= (ShFileOperation(FileOp)=0);
end;

Quitando la verificación de existencia del Archivo, podemos llamar a la función de API con comodines.

Es decir algo como

ALaPapelera('C:\Temp\*.tmp');

Saludos.