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

End Sub