home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / setup / makers.exe / makers.DXR / 00001.ls next >
Encoding:
Text File  |  1996-06-13  |  457 b   |  17 lines
  1. on CheckDrive fileName
  2.   repeat with i = 67 to 90
  3.     set drive to numToChar(i)
  4.     openXLib("fileIo.dll")
  5.     set thisPath to string(drive & ":\" & fileName)
  6.     set myfile to FileIO(mnew, "read", thisPath)
  7.     if objectp(myfile) then
  8.       myfile(mdispose)
  9.       closeXLib("fileIo.dll")
  10.       return string(drive & ":\")
  11.       exit
  12.     end if
  13.   end repeat
  14.   closeXLib("fileIo.dll")
  15.   alert("Please Make sure that the NEWSDEMO cd is in your CD drive")
  16. end
  17.