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!
Pingback: See if a file exists in Visual Basic | Solarum - Information For Everyone