Sub フォルダがあるか確認チェックする_部分一致()
    
    '確認したいフォルダパスに[*]を入れると部分一致になる
    確認したいフォルダ = Dir("C:\t*", vbDirectory)
    
    If 確認したいフォルダ <> "" Then
    
        MsgBox 確認したいフォルダ & "フォルダがあります"
        
    Else
    
        MsgBox 確認したいフォルダ & "フォルダがありません"
        
    End If

End Sub