' Return True if a directory exists' (the directory name can also include a trailing backslash)Function DirExists(DirName As String) As Boolean On Error GoTo ErrorHandler ' test the directory attribute DirExists = GetAttr(DirName) And vbDirectoryErrorHandler: ' if an error occurs, this function returns FalseEnd Function
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)