【VBA】フォルダの存在確認｜FolderExists

Public Function FolderExists( _
                                    ByVal str As String, _
                                    ByVal extension As String) As Boolean
    FolderExists = False
    Dim fso As Object: Set fso = SetFSO
    If Not fso.FolderExists(folderPath) Then
        MsgStopMacro ("次のフォルダが見つかりません" & vbCrLf & folderPath)
    End If
    
    FolderExists = True
End Function