home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / DH2.exe / DH2.dxr / 00003_INTERNET.ls < prev    next >
Encoding:
Text File  |  1998-09-29  |  251 b   |  10 lines
  1. on netIsFileThere fileName
  2.   set fileObject to new(xtra("fileio"))
  3.   openFile(fileObject, fileName, 1)
  4.   set theError to error(fileObject, status(fileObject))
  5.   if theError <> "OK" then
  6.     put theError, fileName
  7.   end if
  8.   return theError = "OK"
  9. end
  10.