File Length (Size)

long flength(char *fname)
{
   long length = -1L;
   FILE *fptr;

   fptr = fopen(fname, "rb");
   if(fptr != NULL)
   {
     fseek(fptr, 0L, SEEK_END);
     length = ftell(fptr);
     fclose(fptr);
   }

   return length;
}