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