' Return True if a file existsFunction FileExists(FileName As String) As Boolean On Error GoTo ErrorHandler ' get the attributes and ensure that it isn't a directory FileExists = (GetAttr(FileName) And vbDirectory) = 0ErrorHandler: ' if an error occurs, this function returns FalseEnd Function