Listar archivos?

[ixMike]

Lo siento mucho, marcoszorrilla, pero lo del FileListBox oculto es una chapuza (lo digo sin ánimo de ofender). Lo sé porque una vez lo hice así.
Lo que se queda más profesional (de todo lo que conozco), más limpio, lo que menos recursos consume y lo más rápido (a la hora de usar, no de programar), es usar las funciones FindFirst, FindNext y FindClose, que están bien detalladas en la ayuda de Delphi. Además dan la posibilidad de hacer filtros, especificar atributos de archivo y, si te lo curras, hasta buscar en subdirectorios (aunque eso último ya es más elaborado, pero si teneis paciencia, busco el código que hice una vez para tal propósito y lo coloco aquí). Y para guardar una lista con los archivos encontrados, pues usar un TStrings o TStringList.

Saludos a todos

[marcoszorrilla]

No veo porque me tendría que dar por ofendido. Conozco esas funciones que citas, pero para el caso que nos ocupa y como colijo que quien pregunta no es experto en la materia, me parece que es la manera más fácil de resolver el caso.

Un Saludo.

[[Lepe]]

Yo sigo usando las rutinas de las NKLIBS una estupenda biblioteca de funciones.

Código Delphi [-]
// Devuelve una lista con todos los ficheros de un directorio que se ajustan
// a la máscara cMask, con unos atributos dados, si lRecursive vale True,
// busca también en los subdirectorios, en los subdirectorios de los
// subdirectorios, etc.
// Devuelve False si el directorio no existe.
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer;
             lRecur: Boolean; S: TStrings): Boolean;

function FindFilesInDirS(const cDir:String; cMask: String; iAttr: Integer;
             lRecur: Boolean; S: TStrings): Boolean;

// Devuelve una lista con todos los subdirectorios contenidos en un
// directorio.
// Devuelve False si el directorio no existe.
function FindSubsInDir(const cDir: String; S: TStrings;const FullPathInSubdirs:Boolean = false): Boolean;

Ejemplo de llamada:

Código Delphi [-]
      findfilesindirS(getwindir + '\msagent\chars', '*.acs', faanyfile,
        false, TStringList(combopersonaje.items));

Son gratuitas y usando google no tardarás en bajarlas.

Saludos

[[seoane]]

Este tema se trato ya muchas veces en los foros. Por ejemplo en este post no solo te los listan (en un TstringList) que además te los dan ordenados por fecha.

http://www.clubdelphi.com/foros/show...41&postcount=2

O tienes este otro truco
http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

Y seguro que con una simple búsqueda encuentras muchos mas ejemplos

[jam888]

Muchas gracias a todos por sus aportes que fueron de mucha importancia, me quedo algo p[or resolver, pero lo hare en otro hilo.

[FideRosado]

como y donde obtener esta libreria he buscado en google y nada

[ecfisa]

Hola.

Desconozco su origen y uso, pero, a partir de estos hilos:

• Inactivar el menú inicio
• ActiveX Microsoft Agent en Delphi

infiero que las rutinas de NKLIBS estan contenidas en la biblioteca RXLibs.

Saludos