Hi there, how about a close cousin to yesterdays Visual Basic function?  In a previous post we showed you a function that will tell you whether or not a file does indeed exist.  Well, here is another similar function, but it tells you whether or not a directory exists.  This is another handy tool for all you code monkeys out there.  It works much the same way, check it out below:

Public Function fDirExists(ByVal DirName As String) As Boolean
 
        Dim TempAttr As Integer
        On Error GoTo ErrorDirExist
                TempAttr = GetAttr(DirName)
                fDirExists = TempAttr
                GoTo ExitDirExist
 
ErrorDirExist:
        fDirExists = False
        Resume ExitDirExist
 
ExitDirExist:
        On Error GoTo 0
 
End Function

Does that look familiar?? It should! OK, you call it just like the other one, here take a look:

if fDirExists("c:\windows") then
  ' Hey, it's there
else
  ' Nope, not there
end if

Pretty simple, it returns true or false and lets you make informed decisions in your code. Keep up the hacking kiddies!

Be Sociable, Share!

•