Hi Kurt,

As I've just noted to Simon Avery:

 Tom's code:
KK>   That could be done much faster in most cases with fread()
KK>   and a good sized buffer, couldn't it? It would greatly
KK>   reduce the number of iterations necessary. It would still
KK>   be ANSI standard, as far as I can see. ??
KK>long File_len(char *fname)
KK>{
KK>   long file_size = 0, block_read;
KK>   char *buf;
KK>   FILE *fp;
KK>   fp = fopen(fname, "rb");
KK>   if(NULL = fp)
KK>      return -1L;
KK>   buf = malloc(16384);
KK>   if(NULL = buf)
KK>   {
KK>      fclose(fp);
KK>      return -2L;
KK>   }
KK>   do {
KK>      file_size += (block_read = fread(buf, 16384, 1, fp));
...............................................^^^^^^^^
KK>   }  while(block_read > 0);
KK>   free(buf);
KK>   fclose(fp);
KK>   return file_size;
KK>}

You've got the parameters for block size and number of blocks
interchanged. What you've posted will give you the number of complete
blocks of 16384 bytes read, not the file size...

George

 * SLMR 2.1a * Computers eliminate spare time.

--- Maximus/2 3.01