home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / batnmore.z!p / DUA.BTM < prev    next >
Text File  |  1992-11-15  |  1KB  |  30 lines
  1. *REM This batch file is Freeware, free to use and redistribute unmodified *
  2. *REM Jouni Miettunen * jon@stekt.oulu.fi * Oulu * Finland * Europe * 1992 *
  3.  
  4. REM Show disk usage grouping files alphabetically (only in current dir)
  5. REM Note: can't handle filenames beginning with % (ascii 37) or ^ (ascii 94)
  6. REM Timestamp 15-Nov-1992
  7.  
  8. break on^setlocal^unalias *
  9. echos Checking File Structure. Please, wait...
  10.  
  11. REM Find all different 1st characters of filenames in current directory
  12. REM for %x in (*.*) if exist %x set %@ascii[%x]=1 (4DOS 4.01 rev B)
  13. for /a-d %x in (*.*) set %@ascii[%x]=1
  14.  
  15. REM Possible filename characters start at ascii 33, ascii 97 is lowercase a
  16. REM set index=33
  17. set index=97
  18.  
  19. :loop
  20. iff "%[%index]"=="1" then^screen %_row 0 %@char[%index]-files
  21. dir/kua-d %@char[%index]*|find "al"^endiff
  22. set index=%@eval[%index+1]
  23.  
  24. REM Last possible filename character is ascii 255, ascii 122 is lowercase z
  25. REM if %index le 255 goto loop
  26. if %index le 122 goto loop
  27.  
  28. :end
  29. break off^quit
  30.