'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 vbDirectory ErrorHandler: ' if an error occurs, this function returns False End Function |