Hola amigos!
tengo un programilla para borrar archivos de un directorio, pero necesitaría que tb me lo hiciese del primer nivel de carpetas por debajo de este, solo del primero. Tengo el siguiente código que funciona:
==========================================================
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
Var Info : TSearchRec;
Count : Longint;
Archivo : String;
fechaSistema,fechaArchivo,diasTranscurridos : TDateTime;
Begin
Count:=0;
If FindFirst ('*.*',faAnyfile,Info)=0 then
begin
Repeat
Inc(Count);
With Info do
fechaArchivo := (FileDateToDateTime(Info.Time));
fechasistema := (date);
diasTranscurridos := ((fechaSistema)-(fechaArchivo));
if diastranscurridos > 60 then
Archivo := Info.Name;
DeleteFile(pChar(Archivo));
Until FindNext(info)<>0;
end;
Sysutils.FindClose(Info);
Close;
end;
==========================================================
Solo necesito que elimine los archivos del directorio y del primer subdirectorio en que está el programa ejecutándose.
Un saludo.