uso de aFindFile() o parecidos

[jfafive]

Hola a todos,

Estoy buscando una función similar la aFindFile() que viene en FWH.

Esta función, busca un fichero recursivamente, es decir, a partir de una carpeta y de todas las que encuentre hacia abajo.

Quisiera saber si existe algo igual pero que no se limite a buscar el nombre de un fichero, sino que busque una cadena de caracteres dentro de el o los ficheros que encuentre.

Gracias,

[jfafive]

Estoy usando este ejemplo, copiado de SAMPLES pero MsgInfo solo devuelve 0

Code: Select all  Expand view  RUN

STATIC function fPrueba()

   local aFiles
   local nCont  := 1

   aFiles := aFindFile( "iexplore.exe", "c:" )

   MsgInfo( Len( aFiles ) )
   for nCont := 1 to Len( aFiles )
      MsgInfo( aFiles[ nCont ] )
   next

return nil