home *** CD-ROM | disk | FTP | other *** search
/ The See Clearly Method / TheSeeClearlyMethod.iso / Media / stub2.dir / 00008_Script_8 < prev    next >
Text File  |  2002-02-15  |  564b  |  15 lines
  1. global myFile
  2. on EnterFrame
  3.   if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  4.   myFile = new(xtra "fileio") -- Create an instance of FileIO
  5.   openFile(myFile, "c:\agreed.txt",1) --Open the file with read access
  6.   myVariable = readFile(myFile) --set the variable 'myVariable' to the text of the file 'info.txt'
  7.   if readFile(myFile)=VOID then --checks to see if this file exists
  8. go to frame 2
  9.   else
  10.     go to movie "qtpc"
  11.     closeFile(myFile) -- Close the file
  12.   end if
  13.   myFile = 0 -- Dispose of the instance
  14. end
  15.