Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cómo listar contenido directorio por orden de fecha (https://www.clubdelphi.com/foros/showthread.php?t=64607)

Bauhaus1975 09-04-2009 13:19:45

Cómo listar contenido directorio por orden de fecha
 
Hola,
Estoy intentando hacer una rutina que lea la lista de archivos que contiene un directorio por orden de fecha de creación. Bueno más bien me gustaria que fuera por el atributo 'Imagen tomada el día'. Este es un atributo que puede agregarse en a la lista del explorador de windows cuando estamos listando imágenes. En concreto quiero aplicarlo a directorios que contienen imágenes, pero como no estoy seguro de que esto pueda hacerse otra opción podria ser utilizar simplemente la fecha de creación del archivo como criterio.

Tampoco estoy seguro de que pueda obtenerse una lista de archivos por orden de un atributo, o al menos esa es la sensación que me da tras ver las funciones típicas de lectura de directorios como 'FindFirst', 'FindNext' etc.

¿Alguien puede ayudarme con este tema?
Gracias y un saludo.

Neftali [Germán.Estévez] 09-04-2009 15:06:13

Yo optaría por buscar ficheros con FindFirst/FindNext, obtener la fecha, convertir a formato yyyymmmdd, montar una cadena con ambos:

yyyymmdd_filename

Para cada elementos lo vas guardando en un TSringList ordenado y una vez que acabes el recorrido, tendrás los elementos ordenados. ;)

Bauhaus1975 09-04-2009 17:09:10

Hola Neftali, gracias por tu ayuda.
Supongo entonces que no hay ninguna función que devuelva una lista de archivos ordenados por algún criterio.
Y el atributo 'Fecha' ¿Sólo es posible conocer la fecha de creación del archivo?

Por si alguien quiere saber más de listar archivos con FindFirst/FindNext
Aquí he visto un ejemplo del uso de lectura de directorios hecho por ti y por David.

Un saludo.

EDITO: (Neftalí) He corregido el link que estaba incorrecto.


La franja horaria es GMT +2. Ahora son las 22:12:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi