bb1


/* zdir.c  Rapporterar fil-katalogers totala storlek       */
/* av Jesper N„sstr”m f”r Svenska PC World                 */
/*                                                         */

#define __MSC            /* G”r Borlands DOS.H kompatibel med Microsoft */
#include <stdio.h>
#include <stdlib.h>
#include <dos.h>
#ifdef __TURBOC__
#include <dir.h>
#else
#include <direct.h>
#endif

#define ATTRIBUTES _A_NORMAL | _A_RDONLY | _A_HIDDEN | \
               _A_SYSTEM | _A_VOLID | _A_ARCH | _A_SUBDIR

void makepath(char *path, char *drive, char *dir, char *fname, char *ext)
{
     if(dir[strlen(dir)-1] != '\\')          /* katalognamn ska sluta med '\' */
          strcat(dir, "\\");
     sprintf(path, "%s%s%s%s", drive, dir, fname, ext);     /* sl† ihop */
}

unsigned long dirsum(char *pathstr, int pf)
{
     struct find_t ffblk;          /* inneh†ller filattribut med mera */
     int f, fcount = 0;
     unsigned long subsum, bytesum = 0L;  /* summa filstorlek */
     char drivestr[_MAX_DRIVE], dirstr[_MAX_DIR];
     char subdir[_MAX_DIR], nextpath[_MAX_PATH];
     int done;

     _splitpath(pathstr, drivestr, dirstr, NULL, NULL);
     done = _dos_findfirst(pathstr, ATTRIBUTES, &ffblk);

     while(!done) {
          if(((ffblk.attrib & _A_SUBDIR) == 0)     /* det „r en vanlig fil */
          || (ffblk.name[0] == '.')) {    /*  eller "." eller ".."-katalog */
               bytesum += ffblk.size;
          if (pf) printf ("   %13s %8ld \n", ffblk.name, ffblk.size);
          goto nextfile;
          }
          sprintf(subdir, "%s%s", dirstr, ffblk.name); /* path n„sta niv† */
          makepath(nextpath, drivestr, subdir, "*", ".*");

          subsum = dirsum(nextpath, 0);           /* Rekursivt anrop */
          bytesum += subsum;
          if (pf) printf("   %13s %8ld  Directory\n", ffblk.name, subsum);

          done = _dos_findfirst(pathstr, ATTRIBUTES, &ffblk);
          for(f=0; f<fcount; f++)            /* ¸terg† till positionen vi */
               done = _dos_findnext(&ffblk); /* hade f”re rekursionen     */

          nextfile:                          /* avsluta slingvarvet */
          done = _dos_findnext(&ffblk);  
          fcount++; /* r„kna f”r att hitta tillbaka efter rekursivt anrop */
     }                    /* done „r TRUE, alla kataloger funna            */
     if (pf) printf("\nA total of %ld byte for %s\n", bytesum, pathstr);
     return(bytesum);
}

int main()
{
     char pathstr[_MAX_PATH], drivestr[_MAX_DRIVE], dirstr[_MAX_DIR];

     getcwd(pathstr, _MAX_PATH);                  /* var „r vi? */
     if(pathstr[strlen(pathstr)-1] != '\\')
          strcat(pathstr, "\\");             /* kataloger avslutas med '\' */
     _splitpath(pathstr, drivestr, dirstr, NULL, NULL);
     makepath(pathstr, drivestr, dirstr, "*", ".*");

     (void)dirsum(pathstr,1);           /* returv„rdet on”digt, bara anropa */
     return 0;
}
 
     
.

0