Leer archivos de una carpeta
Hola a todos,
Hace ya mucho tiempo que dejé de entrar al foro y programar en Delphi, pero la sangre llama de nuevo. Estoy volviendo a retomar la programación con Delphi 11, lo que quiero hacer es leer los nombres de los archivos de una carpeta y poner esos nombres en un memo.
Por ejemplo, digamos que en la carpeta c:\prog\sistemas están los siguientes archivos:
Compras.pdf
Presupuestos.xls
Nomina.dbf
etc.
Esos mismos nombres de archivos son los que quiero que el memo tenga. La idea es agregarle un número de folio consecutivo a cada archivo y luego renombrarlo. Al finalizar los archivos de esa carpeta se verán así:
Compras-1.pdf
Presupuestos-2.xls
Nomina-3.dbf
etc.
Todavía recuerdo muchas instrucciones de Delphi, cualquier ayuda será bien recibida.
Gracias por la atención!
|