Running out of space ? What's on your disk?

Often a hard disk gets close to full and undesirable things happen, especially on the volume that contains Windows. For example, suppose Windows Update is chugging along and runs out of space. How does it gracefully handle that?

How can you determine which folders take up the most space?

This recursive code creates a cursor with 2 fields per folder: the full path and the size.

CREATE CURSOR dirs (path c(250),size n(13,0))

dodir("c:\")

SELECT * FROM dirs ORDER BY size descending INTO CURSOR totals

BROWSE FIELDS path,size:p="999,999,999,999" NAME oBrowse LAST NOWAIT

oBrowse.AutoFit

PROCEDURE dodir(cPath) as Number

      LOCAL n,i,aa[1],nTotal

      nTotal=0

      n=ADIR(aa,cPath+"*.*","HD",1)

      FOR i = 1 TO n

            IF "D"$aa[i,5]

                  IF aa[i,1] != '.'

                        nTotal= nTotal+dodir(cPath+aa[i,1]+"\")

                  ENDIF

            ELSE

                  nTotal= nTotal+aa[i,2]

            ENDIF

      ENDFOR

      INSERT INTO dirs VALUES (cPath,nTotal)

      ?cPath,TRANSFORM(nTotal,"999,999,999,999")

RETURN nTotal

The last parameter to ADIR preserves the CasE of the names. Notice the formatting of the large numbers with commas makes them much easier to read. The NAME clause of the BROWSE command creates an object named oBrowse which can then be manipulated, such as invoking the Autofit method.

Hidden, compressed, inaccessible (perhaps due to security) files, junction points can vary your results.

This SQL statement groups folder by folder depths (number of backslashes) and shows how many and how big they are.

SELECT OCCURS("\",path) as dep,COUNT(*),SUM(size) FROM dirs GROUP BY dep

My disk had folders 14 levels deep!