Listar archivos?

[[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