rc = DELETEFILE(sort_file)
rc = DELETEFILE(output_file)

/***************************************************************/ 
/* FIND BIG FILES */ 
/* */ 
/* Displays all files on an Windows XP machine, from largest */ 
/* to smallest, for easy identification of big obsolete files. */ 
/* */ 
/* Recursively traverses the directory tree. */ 
/* */ 
/***************************************************************/ 
start_dir = 'C:\'
sort_file. = ''                 /* file name array */
sort_sub = 0
output_file = 'c:\andy\zz_sortout.txt'   /* SORTed DIR listing is here */ 
rc = DELETEFILE(output_file)    /* Ensure files used are new */ 
list_files(1, start_dir)    /* Process the topmost directory */ 

SORT down sort_file. a .        /* sort decending on word 1 */
DO i = 1 TO sort_file.0         /* save sorted array */
  PARSE VAR sort_file.i size fn
  LINEOUT(output_file, FORMAT(size,15) fn)  
END
LINEOUT(output_file)       /* close output file */

/*
'wordpad' output_file           /* Let user view the big files */ 
*/

RETURN 0 
/* End the program */ 


 
list_files: PROCEDURE EXPOSE sort_file. sort_sub
iteration = ARG(1) /* Pick up the 2 input arguments,*/ 
search_dir = ARG(2) /* these are the Iteration # and */ 
/* the Directory to search */ 
more_to_process = 'YES' 
/* Set the processing flag on */ 
/* Do while there are more files & directories to process */ 
DO WHILE more_to_process = 'YES' 
/* MATCHNAME returns the next file or sub-directory name */ 
result = MATCHNAME(iteration, 'feedback', search_dir, 'DSNHCRAT', 'NS')
IF result \= "" /* Stop if MATCHNAME says to */ 
  THEN more_to_process = 'NO' 
  ELSE DO /* MATCHNAME returned an entry */ 
    /* This case is a File name, write it to the output list */ 
    IF feedback.0 \= "" THEN DO 
      sort_sub = sort_sub + 1
      sort_file.sort_sub = RIGHT(feedback.0,15,0) search_dir || feedback
    END 
  /* This case is a new sub-Directory to process. Process */ 
  /* the sub-Directory by calling LIST_FILES routine */ 
  ELSE DO 
    new_search_path = search_dir || feedback || '\' 
    result = list_files((iteration + 1), new_search_path) 
  END 
END 
END 
RETURN result