home *** CD-ROM | disk | FTP | other *** search
/ NEXT Generation 34 / NEXT34.iso / pc / intro.dir / 00055_Script_55 < prev    next >
Text File  |  1997-08-11  |  413b  |  23 lines
  1. --Finds the cd drive and then launches the specified path
  2. --Requires the FileXtra
  3.  
  4. on findCD
  5.   set dlist to DrivesToList()
  6.   put dlist into field "driveList"
  7.   
  8.   set x = count(dlist)
  9.   put x
  10.   
  11.   repeat with i = 1 to x
  12.     set driveName = getAt(dlist, i)
  13.     set test = DriveIsCDROM(driveName)
  14.     if test = 0 then 
  15.       put driveName into field "cdDrive"
  16.     end if
  17.   end repeat
  18. end
  19.  
  20.  
  21.  
  22.  
  23.