Foros Club Delphi - Limpiar contenido carpeta

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

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

- - Limpiar contenido carpeta (https://www.clubdelphi.com/foros/showthread.php?t=17076)

Chupi

22-12-2004 14:49:39

Limpiar contenido carpeta

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

Saludos y Gracias.

Neftali [Germán.Estévez]

22-12-2004 16:00:35

Cita:

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

28-12-2004 15:22:41

OK, gracias, y feliz navidad :)

roman

28-12-2004 23:28:34

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

La franja horaria es GMT +2. Ahora son las 00:53:11.