home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lang / basic / 1104 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  1.8 KB
  1. Path: sparky!uunet!charon.amdahl.com!amdahl!rtech!decwrl!sdd.hp.com!cs.utexas.edu!asuvax!ukma!cs.widener.edu!dsinc!netnews.upenn.edu!msuinfo!clvax1.cl.msu.edu!cravitm
  2. From: cravitm@clvax1.cl.msu.edu (MATT CRAVIT CPS130)
  3. Newsgroups: alt.lang.basic
  4. Subject: Re: re: HELP wanted: filehandling in Visual Basic
  5. Message-ID: <1k3r46INNf49@msuinfo.cl.msu.edu>
  6. Date: 26 Jan 93 17:03:30 GMT
  7. References: <1993Jan26.135724.234@samba.oit.unc.edu>
  8. Reply-To: cravitm@clvax1.cl.msu.edu
  9. Organization: Michigan State University, East Lansing, MI
  10. Lines: 38
  11. NNTP-Posting-Host: clvax1.cl.msu.edu
  12. News-Software: VAX/VMS VNEWS 1.3-4
  13.  
  14. In article <1993Jan26.135724.234@samba.oit.unc.edu>, dil.admin@mhs.unc.edu (Dave Laudicina) writes...
  15. >>Basically, it boils down to this:
  16. >> How can I determine whether a file (in this case a .BMP) exists in the
  17. >> given path?
  18. >>
  19. >>If someone can tell me what I have to do to solve this problem, please,
  20. >>mail me. I would be very grateful.
  21. >>
  22. >You could set up a file list box for a particular drive and path 
  23. >and search through the file list to see if the file is in the list.
  24. > 
  25. >I would also be interested if anyone has found a more efficient way
  26. >to do this.
  27. >Thx Dave L
  28.  
  29. This is not necessarily the best way that you could use, but this should also
  30. work:
  31.  
  32. FUNCTION DoesFileExist (TheFilename$)
  33. ON LOCAL ERROR GOTO ErrorHandler
  34.  
  35. OPEN TheFilename$ FOR INPUT AS #1
  36. CLOSE #1
  37.  
  38. ErrorHandler:
  39. SELECT CASE ERR
  40.      CASE IS = (I don't remember the number, check the Error Messages appendix
  41.                 in the Reference; a certain number means file not found.)
  42.           DoesFileExist = FALSE
  43.      CASE ELSE
  44.           DoesFileExist = TRUE
  45. END SELECT
  46. END FUNCTION
  47.  
  48. I'd also like to know if anyone knows a better way to do this, because using
  49. ON LOCAL ERROR GOTO is, IMHO, a very kludgy way to program.
  50.  
  51. /Matthew
  52.