XPfileFind()
  Invoke File find routine
------------------------------------------------------------------------------

   Function:   XPfileFind()

               XPfileFind() is a function that use's the
               XPfind..() routines to search a directory
               tree for files. It's powerful and easy to use,
               the use of Code-Blocks makes it possible to do
               whatever you want with the Output.

               The use of the code-block for the output makes it possible
               for the programmer to store the results he wants in an array,
               database or to print/display them directly. It's all up to you!

   Syntax:     XPfileFind(cDir,cMask,bFound)

   Arguments:  cDir is the directory where to start the search,
               it defaults to \. cMask is the file mask to match, it
               defaults to '*.*'. bFound is the code block to invoke when
               a match is found, there is no default (that would be useless).

               Every time, when the function traverses the tree,
               and finds a file matching cMask, bFound is invoked with
               a parameter which contains the following array:

               { cFullName, nSize, dData, cTime, cAttributes }

               cFullName is the full name of the matching file (including
               Directory), the rest is as in Clipper's Directory.

   Returns:    NIL

   Usage:      For example, print out name of all .DBF files on drive C:
               XPfileFind('C:\','*.DBF',{|e|Qout(e[1])})
               * Easy huh?