home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / perf31.zip / perf_30 / SZDISK.CMD < prev    next >
OS/2 REXX Batch file  |  1993-11-03  |  350b  |  18 lines
  1. /* Size of disk */
  2. /*Copyright (c) 1993 CLEAR & SIMPLE, INC.*/
  3. ECHO OFF
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6. Call on Error name ErrorRtn
  7. szdisk:
  8. Arg SZDrive .
  9. SZinfo=SysDriveInfo(SZDrive)
  10. parse var szinfo . SZfree SZtotal .
  11.  
  12. return szfree sztotal
  13.  
  14. ErrorRtn:
  15. Say Errors in size of disk
  16. return
  17.  
  18.