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

 findfsize()         Return the size of a file after a file find
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func long findfsize extern

 Arguments
   None.

 Return
   The size of the file.

 Description
   The findfsize() function returns the file size associated with the file
   found most recently by the findfirst() or findnext() functions.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   func ulong filespace
   param const char cFiles, value uint nType
   // Return the disk space occupied by the specified files
   vardef
      ulong nSize
   enddef
   nSize := 0
   if findfirst( cFiles, nType )
      repeat
         nSize += findfsize()          // add file sizes
      until .not. findnext()
   endif
   return( nSize )
   endfunc
   
   proc Test_findfsize
   ? "Total size of files in current directory is", ;
      numcomma( istr( FileSpace( "*.*", 0x27 ) ) ), "bytes"
   endproc

   proc main
   Test_findfsize()
   endproc