Find CD Drive - Using Wierd File

 

Compatibilities:

This item has not yet been rated

From Technote #3123 at Macromeida.com

on CheckDrive weirdfile repeat with i = 67 to 90           set drive = numTochar( i )           set thisPath = string(drive & ":"& weirdfile)       set myFile = new(xtra "fileio")     -- Create an instance of FileIO Xtra       openFile(myFile, thisPath, 1)       -- attempt to open the file       if status(myfile) = 0 then          -- status returns 0 for success         set myFile = 0     -- Dispose of the instance         return drive&":"         exit       end if   end repeat     set myFile = 0      -- Dispose of the instance   alert "Please check that the file named "" & weirdfile & "" is on your CD drive." end