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]]

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:


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