home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / batnmore.z!p / DF.BTM < prev    next >
Text File  |  1992-11-15  |  1KB  |  49 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 Check free disk space (unixish df DiskFree)
  5. REM Timestamp 15-Nov-1992
  6.  
  7. setlocal^break on^unalias *^if "%1"=="-?" goto info
  8.  
  9. REM Did the user give any arguments?
  10. if "%@ascii[%1]" != "45" goto over
  11.  
  12. :optiot
  13. set index=%@eval[%index+1]^set %@ascii[%@substr[%1,%index,1]]=1
  14. if %index lt %@eval[%@len[%1]-1] goto optiot^shift
  15.  
  16. iff "%[%@ascii[a]]"=="1" then^set try=65^goto scan^endiff
  17.  
  18. REM Check only some drives
  19. REM Note: the FOR's ending parenthesis can't be last character of previous line.
  20. REM If it was and we used df without arguments, we would not "goto end", only
  21. REM quietly quit and leave break on. RTFM did not help. 4DOS 4.01 revision D.
  22.  
  23. :over
  24. iff %#==0 then^echos Drive %@upper[%_disk]:^free|find "es f"
  25. else^for %a in (%&) (
  26. iff %@ready[%@substr[%a,,1]:]==1 then^echos Drive %@upper[%@substr[%a,,1]]:
  27. free %@substr[%a,,1]:|find "es f"^endiff
  28. )
  29. endiff^goto end
  30.  
  31. REM Check all available drives
  32.  
  33. :scan
  34. iff %@ready[%@char[%try]:]==1 then
  35. echos Drive %@upper[%@char[%try]]:^free %@char[%try]:|find "es f"^endiff
  36. set try=%@eval[%try+1]^if %try gt %@ascii[%_lastdisk] goto end
  37. goto scan
  38.  
  39. :info
  40. echo Usage: %@lower[%@name[%0]] [-option] drives
  41. text
  42.  
  43.     -a    check all available drives
  44.     -?    info
  45. endtext
  46.  
  47. :end
  48. break off^quit
  49.