Como borrar archivos

[[newtron]]

Hola.

Aquí tienes la respuesta para tu primer tema:

Código Delphi [-]
Procedure BorraArchivos;
var
  Path: String;
  Fichero : TSearchRec;
begin
  Path:='C:\RUTA';
  FindFirst(Path + '\HTTP*.*', faArchive, Fichero);
  If Fichero.Name = '' then exit;
  DeleteFile(Path + '\' + Fichero.Name);
  while FindNext(Fichero) = 0 do begin
    DeleteFile(Path + '\' + Fichero.Name);
  end;
end;

Esto no está probado, espero que funcione.

Seguro que hay una forma para no duplicar el deletefile pero ahora mismo no se me ocurre.

Tendrás que añadir al uses del formulario la unidad SysUtils.

Saludos

Edito:
Para la segunda pregunta échale un vistazo a esto:

http://delphiallimite.blogspot.com/2...rectorios.html

que tiene ejemplos bastante claros para el tema que comentas.

Saludos