home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / arexxe.lha / gdname.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-03-07  |  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.