ARexx Hdinfo.lzh?
17-Nov-91 22:01:46
Sb: #16586-ARexx Hdinfo.lzh?
Fm: John Draper 76703,4322
To: robert buchwald 75766,1474
I took a quick look at it, Robert, but I didn't bother with it. Here's how
I would do it…
/* hdinfo.rexx */
address command 'info >ram:tempinfo'
disks = 'DH1: DH3: DH4: Work:' /* put your HD names here */
call open(infile,'ram:tempinfo')
say 'Mounted disks:'
do forever
line = readln(infile)
if word(line,1) = 'Volumes' then leave
if find( disks, word(line,1) ) > 0 then
say line
end
call close(infile)
address command del 'ram:tempinfo' quiet
Hope this works better for you.
-larry