home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 45 / cda45.iso / intro.dxr / scripts_17_ClickEnRuta.ls < prev    next >
Encoding:
Text File  |  2000-04-18  |  358 b   |  19 lines
  1. on mouseUp me
  2.   s = the moviePath & member("Ruta").text
  3.   if s <> EMPTY then
  4.     r = s
  5.     Dir = 1
  6.     repeat while (the last char in r <> "\") and (r <> EMPTY)
  7.       delete char -30000 of r
  8.       Dir = 0
  9.     end repeat
  10.     if Dir then
  11.       open(s, "explorer.exe")
  12.     else
  13.       var = baSetCurrentDir(r)
  14.       put var
  15.       open(s)
  16.     end if
  17.   end if
  18. end
  19.