#22002/5/17 12:04:34
-- AGGetCdromList()
--提供者:eric_huang
--语法:
-- AGGetCdromList()
--描述:
-- 返回光驱盘符列表
-- 需要buddyAPI插件
--范例:
-- put AGGETCdromList()
-- -- ["G"]
--
on AGGetCdromList
cdromlist=[]
repeat with drivenum= 68 to 91
drivename=numtochar(drivenum)
cdrom= baDiskInfo( drivename, "type")
if cdrom = "CD-ROM" then
append cdromlist,drivename
end if
if cdrom = "Invalid" then
exit repeat
end if
end repeat
return cdromlist
end