FolderExists

Function FolderExists( _
    strCompleteFolderPath As String _
) As Boolean
    Dim _
        fs As Object
    Set _
        fs = _
            CreateObject( _
                "Scripting.FileSystemObject" _
            )
    FolderExists = _
        fs.FolderExists( _
            strCompleteFolderPath _
        )
    Set _
        fs = _
            Nothing
End Function