Delphi - Eliminar archivos

 
Vista:

Eliminar archivos

Publicado por Eulogio (8 intervenciones) el 07/07/2004 20:56:11
Hola a todos,

estoy haciendo un programilla para eliminar archivos que lleven mas de 60 dias en un directorio pero no acabo de sacarlo. El código que tengo es el siguiente:

-------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Archivo: TSearchRec;
i : integer;
fechaSistema,fechaArchivo,diasTranscurridos : TDateTime;
begin
i := FindFirst(\'C:\\Documents and Settings\\davidVM\\configuración local\\temp\\*.*\', FaArchive, Archivo);
fechasistema := (date);
fechaArchivo := (FileDateToDateTime(Archivo.Time));
diasTranscurridos:= ((fechaSistema)-(fechaArchivo));
while i = 0 do begin
if diasTranscurridos > 60 then
if DeleteFile(pChar(\'C:\\Documents and Settings\\davidVM\\configuración local\\cookies\\\'+ Archivo.Name)) = false then
i := FindNext(Archivo);
end;
SysUtils.FindClose(Archivo);
end;
---------------------------------------------------------------------

A ver si me pueden ayudar...

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar archivos

Publicado por Ing Francisco Arena (140 intervenciones) el 09/07/2004 21:41:44
En vez de hacer:
....
diasTranscurridos:= ((fechaSistema)-(fechaArchivo));
....

deberías hacer lo sig:

DaysBetween (fechaSistema, fechaArchivo);

Con eso debería funcionar. No te olvides de agregar la unidad DateUtils (Delphi 6 o superior).

Saludos...

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar