home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / internet.dxr / 00014_WriteFile.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  310 b   |  13 lines
  1. on writeFile
  2.   global FileString, directory
  3.   if objectp(myfile) then
  4.     set myfile to 0
  5.   end if
  6.   set myfile to new(xtra("fileio"))
  7.   createFile(myfile, directory & "\browser.txt")
  8.   openFile(myfile, directory & "\browser.txt", 0)
  9.   writeString(myfile, FileString)
  10.   closeFile(myfile)
  11.   set myfile to 0
  12. end
  13.