home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / file.exe / file.dxr / 00002_driveLetter.ls < prev    next >
Encoding:
Text File  |  1996-12-06  |  335 b   |  16 lines
  1. on driveLetter
  2.   global DriveLtr
  3.   repeat with i = 68 to 91
  4.     set fname to getNthFileNameInFolder(numToChar(i) & ":\Music\", 1)
  5.     if char 1 to 10 of fname = "TRIGCHAN.A" then
  6.       exit repeat
  7.     end if
  8.   end repeat
  9.   if i < 91 then
  10.     set DriveLtr to numToChar(i)
  11.   else
  12.     set DriveLtr to EMPTY
  13.   end if
  14.   return DriveLtr
  15. end
  16.