home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / EXIST2.SCR < prev    next >
Text File  |  1992-06-15  |  397b  |  16 lines
  1. > windowpos(25,100)
  2. > windowprms(off,0,0)
  3. > windowtitle('Testing the EXIST command')
  4. > windowshow()
  5. > if !exist ('c:\config.DEN')
  6. >       message ('File not found in root directory- WORKS')
  7. > endif
  8. > wait()
  9. > filename = "c:\nofile.tst"
  10. > if !exist (filename)
  11. > message ('File not found in root directory- WORKS')
  12. > else
  13. > message ('File not found in suggested path')
  14. > endif
  15. > end
  16.