Checking for File Existance

Checking for File Existance

How do you use VB to check to see if a file exists?

The simplest way to do it is to try opening the file with these lines of code:

Open “filename.ext” For Input as #1Close #1
You also want to add an error trap immediately before the Open statement sothat you can catch the errors when they occur when the file does not exist. You’ll have to look up the error number for “File not found” — I thinkit’s 53. The whole piece of code looks like this:
On Error Resume NextOpen “Filename.Ext” For Input As #1If Err.Number = 53 Then   ‘ Process error hereElse   Close #1End If


Share the Post: