Como borrar archivos

[martonbarbosa]

Empezado por newtron

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;

WOW te agradesco muchisimo, lo acabo de probar y funciona de maravilla!!!!
es justamente lo que andaba buscando! gracias loco!!!!

Ahora voy a revisar el segundo!

Salu2

4n71chr157