Get CD ROM Drive letter

 

Compatibilities: Required Xtras: FileXtra

This item has not yet been rated

This definitely checks all the drives and pulls out the cd-rom drive letter and places it into a field. You will need fileXtra3. Does not work in shockwave due to security issues.

Download PC Source

property f,ls,i,a on beginsprite me   f = xtra("FileXtra3").new()   --list of volumes stored in ls   ls = f.fx_volumesToList()   repeat with i = 1 to ls.count     a = getat(ls,i)     put a     if f.fx_volumeIsCDROM(a) then       put f.fx_volumeIsCDROM(a)       put a &&"drive found"       member("drive").text=a&&"drive found"       exit     end if   end repeat   end on exitFrame me   go to the frame end