Sub フォルダがあるか確認チェックする()
    
    Set フォルダ = CreateObject("Scripting.FileSystemObject")
    
    'FolderExists はルールだと思い覚える
    If フォルダ.FolderExists("C:\test\") Then
    
        MsgBox "C:\test\ フォルダがあります"
        
    Else
    
        MsgBox "C:\test\ フォルダがありません"
        
    End If

End Sub