home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / df.cmd < prev    next >
OS/2 REXX Batch file  |  1999-04-15  |  876b  |  35 lines
  1. /* cygnus & PiG */
  2.  
  3. rc = RxFuncAdd("SysDriveInfo","rexxutil","SysDriveInfo")
  4.  
  5. a=''
  6. c=''
  7. d=1000000
  8.  
  9. say
  10. call charout , 'Getting drives info '
  11.  
  12. stm=0
  13. do i=67 to 90
  14. rc=SysDriveInfo(d2c(i)':')
  15. if strip(rc) \= '' then
  16.     do
  17.         stm=stm+1
  18.         disk.stm=i
  19.     end
  20.     call charout ,'■'
  21. end
  22.  
  23. max=stm
  24. say
  25. say c'┌──────┬──────────────┬─────────────┬─────────────┬────── cygni 'c'┐'
  26. say '│ Disk │ Volume label │ Total space │  Used space │  Free space │'
  27. say '├──────┼──────────────┼─────────────┼─────────────┼─────────────┤'
  28. stm=1
  29. do max
  30. parse value SysDriveInfo(d2c(disk.stm)':') with dn fs ts l'.'l2
  31. say '│ ' dn ' │'  left(strip(l||l2),12) '│' right(format(ts/d,3,2),8) 'Mb │' right(format((ts-fs)/d,3,2),8) 'Mb │'a right(format(fs/d,4,2),8) 'Mb 'c'│'
  32. stm=stm+1
  33. end
  34. say '└──────┴──────────────┴─────────────┴─────────────┴─────────────┘'
  35.