The Question of Existence

Testing for the existence of a file ought to be easy (and is in most
languages), but it turns out to be one of the most annoying problems
in Visual Basic. Don't count on simple solutions like this:

Dir will return the first file found if you happen to pass sFullPath as
an empty string, and so will set fExist to True. You could use:

That statement works until you specify a file on an empty floppy or
on a CD-ROM drive. Then you're stuck in a message box.

Here's another common one:

It fails on 0-length files ÔÇö uncommon but certainly not unheard of.

My theory is that the only reliable way to check for file existence
in Basic (without benefit of API calls) is to use error trapping.

I've challenged many Visual Basic programmers to give me an
alternative, but so far no joy. Here's the shortest way I know:

This can't be very efficient. Error trapping is designed to be fast
for the no fail case, but this function is as likely to hit errors
as not.

Perhaps you'll be the one to send me a Basic-only ExistFile function
with no error trapping that I can't break.

Until then, here's an API alternative:

I didn't think there would be any way to break this one, but it turns
out that certain filenames containing control characters are legal on
Windows 95 but illegal on Windows NT. Or is it the other way around?

Anyway, I have seen this function fail in situations too obscure to
describe here.

Bruce McKinney

Please note that the VB6 File System Object's GetAttr function cannot be used in place of the GetFileAttributesA API function in this technique as it raises an error when the path is invalid.

Private Declare Function GetFileAttributes Lib "kernel32" _

    Alias "GetFileAttributesA" (ByVal lpSpec As String) As Long

Function DirExists(sPath As String) As Boolean

  Dim Attribs As Long

  Attribs = GetFileAttributes(sPath)

  If (Attribs <> INVALID_FILE_ATTRIBUTES) Then

     DirExists = ((Attribs And vbDirectory) = vbDirectory)

  End If

End Function