Borrado de archivos de subdirectorios.

[eulogi_SCG]

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;
    {i dias : integer;}
Begin
{
  i:=0;
  for i:=1 to ParamCount do
  begin
    if copy(ParamStr(i),1,length(ParamStr(i)))='/D' then
      Dias:=strtoint(copy(ParamStr(i+1),1,length(ParamStr(i+1))));
    if copy(ParamStr(i),1,length(ParamStr(i)))='' then
     dias := 10;
  end;
 }
  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.

[marto]

Wop!

Bienvenido al foro! Espero que te veamos a menudo por aquí.
Te recomiendo que te leas la guía de estilo, ya que encontrarás las normas básicas para convivir en armonía en el foro.
Entre otras cosas, verás que se aconseja usar los tags [delphi], [sql] o [code], segun corresponda, al incluir código en tus mensajes. Esta vez he modificado yo tu texto para que veas lo bien que se lee al estar bien formateado. Si no lo haces así es muy complicado poderlo leer