Limpiar contenido carpeta

[Chupi]

Me gustaria saber como limpiar el contenido de una carpeta sin borrar la carpeta.

Saludos y Gracias.

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

Empezado por Chupi

Me gustaria saber como limpiar el contenido de una carpeta sin borrar la carpeta.

En la sección de trucos del Club tienes los trucos 310 y 333; Son para borrar un directorio completo; Si los adaptas mínimamente deberías poder borrar el contenido sin borrar la carpeta.

[Chupi]

OK, gracias, y feliz navidad

[roman]

Aquí hay otra forma sin tener que recorrer uno a uno los archivos y sudirectorios:

Código Delphi [-]
uses
  ShellApi;

procedure CleanFolder(Folder: String);
var
  FileOpInfo: TShFileOpStruct;

begin
  FillChar(FileOpInfo, SizeOf(FileOpInfo), 0);
  FileOpInfo.wFunc := FO_DELETE;
  FileOpInfo.pFrom := PChar(Folder + '\*.*');
  FileOpInfo.fFlags := FOF_NOCONFIRMATION;

  ShFileOperation(FileOpInfo);
end;

// Saludos