home *** CD-ROM | disk | FTP | other *** search
/ Hacker CD 2 / HACKER_CD.iso / Hacker_CD / viewer.dxr / 00031.ls < prev    next >
Encoding:
Text File  |  2003-04-09  |  382 b   |  17 lines
  1. on prepareMovie
  2.   global adrescode
  3.   adrescode = the moviePath & "codexpress"
  4.   n = 1
  5.   X = 1
  6.   member("dossier").text = EMPTY
  7.   repeat while getNthFileNameInFolder(adrescode, n) <> EMPTY
  8.     if getNthFileNameInFolder(adrescode, n) contains "." then
  9.       nothing()
  10.     else
  11.       member("dossier").line[X] = "Dossier " & X
  12.       X = X + 1
  13.     end if
  14.     n = n + 1
  15.   end repeat
  16. end
  17.