Ver Mensaje Individual
  #2  
Antiguo 13-08-2011
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.473
Reputación: 21
newtron Va camino a la fama
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
__________________
Be water my friend.

Última edición por newtron fecha: 13-08-2011 a las 09:31:13.
Responder Con Cita