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