home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / FILE.EXE / FILE.dxr / 00002_driveLetter.ls < prev    next >
Encoding:
Text File  |  1997-10-14  |  332 b   |  16 lines
  1. on driveLetter
  2.   global DriveLtr
  3.   repeat with i = 68 to 91
  4.     set fname to getNthFileNameInFolder(numToChar(i) & ":\WPCDOC\", 1)
  5.     if char 1 to 7 of fname = "VNU.TXT" 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.