Cita:
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