home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 375.lha / ArexxExamples / gdname.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-05-02  |  394 b   |  15 lines
  1. /* gdname.rexx....Gets name of disk  */
  2. /*                arg = vol          */
  3.  
  4. gdname:
  5. arg vol
  6.  
  7. call setclip('DNAME',"")
  8.                 /* GET INFO FOR THAT FLOPPY DRIVE */
  9. ""'info 'vol' | execio from 4 for 1 var diskinfo'
  10. if compare(word(diskinfo,8),'Only') == 0 then diskname = subword(diskinfo,9,)
  11. else diskname = subword(diskinfo,8,)
  12. call setclip('DNAME','"' || diskname || '"')
  13. return
  14.  
  15.