Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Setup Anim
Full Screen Projectors
Filemanager
merge sorting including accent marked strings
Convert Decimal to Comma (EU)
Vector Shape - Create Saw Wave
Multi lists sorting
Director 8.5 Studio
Interface Colors in all palettes
toggle a global variable with button
 

 

 

Behavior Find CD Drive Letter

Added on 6/8/1999

 

Compatibilities:
D6_5 D7 D8 Mac PC Script

This item has not yet been rated

Author: MediaMacros (website)

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

Send e-mail