listar contenido de una carpeta

[johurgi]

Buenas a todos,

Alguien sabe como puedo listar el contenido de una carpeta por fecha de modificacion. Quiero listar primero los ficheros mas nuevos y por ultimo los mas viejos.

Ya he probado con tsearchrec para listar una carpeta, pero no me la lista por fecha de modificacion que es lo que yo quiero.

Gracias un saludo.

[Investment]

La siguiente funcion te devuelve la fecha de modificacion de un fichero. Con ella y el nombre del fichero ya puedes ordenar como quieres.

   function GetFileDate(TheFileName: string): string;
    var
      FHandle: integer;
    begin
      FHandle := FileOpen(TheFileName, 0);
      try
        Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
      finally
        FileClose(FHandle);
      end;
    end;

[johurgi]

Gracias por tu ayuda,

Al final lo solucione de la siguiente manera.Como tenia que pasar por la base de datos de todas formas lo que hice es insertar en la base de datos con un indice secundario que ordenara por fechas y la fecha es el valor de la fecha de modificado del fichero que acabo de insertar.

Un saludo.