VBA: Check to see if a given path or file exist

Check if file or path exist.bas

' Code based on snippet from John Walkenbach

Function FileExists(fileName) As Boolean
    FileExists = Dir(fileName) <> ""
End Function

Function PathExists(pathName) As Boolean
    ' Returns TRUE if the path exists
    On Error Resume Next
    PathExists = (GetAttr(pathName) And vbDirectory) = vbDirectory
End Function

Sub CreateFolderIfNeeded(pathName)
    If PathExists(pathName) = False Then MkDir (pathName)
End Sub