home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / WPC32.EXE / WPC32.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  448 b   |  24 lines
  1. on startMovie
  2.   global DriveLtr
  3.   set DriveLtr to driveLetter() & ":"
  4.   put DriveLtr
  5. end
  6.  
  7. on driveLetter
  8.   global DriveLtr
  9.   set DriveLtr to EMPTY
  10.   repeat with i = 68 to 91
  11.     set fname to getNthFileNameInFolder(numToChar(i) & ":\WPCDOC\", 1)
  12.     if char 1 to 7 of fname = "VNU.TXT" then
  13.       set DriveLtr to numToChar(i)
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   return DriveLtr
  18. end
  19.  
  20. on getDriveLetter
  21.   global DriveLtr
  22.   return DriveLtr
  23. end
  24.