Click above to get retro games delivered to your door ever month!

 findfext()          Return the extension of a file after a file find
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func char findfext extern

 Arguments
   None.

 Return
   The extension of the file.

 Description
   The findfext() function returns the 3 character extension of the file
   found by the findfirst() or findnext() functions.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   // List all executable files (.exe, .com, and .bat), hidden and normal
   
   proc Test_findfext
   vardef
      char cExt
   enddef
   ? "Executable files"
   if findfirst( curdir( 0 ) + "\*.*", FIND_ARCHIVE )
      repeat
         cExt := findfext()
         if cExt == "BAT" .or. cExt == "COM" .or. cExt == "EXE"
            ? findfstr()
         endif
      until .not. findnext()
   endif
   endproc

   proc main
   Test_findfext()
   endproc