Requires File Xtra. Use this to find the letter of the CD drive on the users computer. Returns a LIST of all CD Drives (this is in case the user has a CD, CDR, CD-RW, etc and the disc is in the 2nd or 3rd drive.)
--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know. :-)
on FindCDDrives
set cdDrives = list ()
set dList = DrivesToList()
set numList = count (dList)
repeat with i = 1 to numList
set chkDrive = getAt(dList,i)
if driveIsCDROM(chkdrive) = 0 then
add cdDrives, chkdrive
end if
end repeat
return cdDrives
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA