home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / xtras / pcwwait.dir / 00002_driveLetter.ls < prev    next >
Encoding:
Text File  |  1997-01-22  |  334 b   |  16 lines
  1. on driveLetter
  2.   global DriveLtr
  3.   repeat with i = 68 to 91
  4.     set fname to getNthFileNameInFolder(numToChar(i) & ":\TEST\", 1)
  5.     if char 1 to 10 of fname = "JOELTT.doc" 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.