Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Debug.WriteLine(ReturnFileName("test.xml", "xml"))
        Debug.WriteLine(ReturnFileName("test.XML", ".xml"))
        Debug.WriteLine(ReturnFileName("test", "xml"))
        Debug.WriteLine(ReturnFileName("test.xxx", "xml"))
        Debug.WriteLine("-------------------------------------------------------")
    End Sub


    ''' <summary>
    ''' ユーザーに特定の拡張子(ここではxmlとする)のファイル名を指定して欲しい時に、
    ''' ユーザーが
    ''' test.xml
    ''' test.XML
    ''' test
    ''' test.xxx
    ''' を指定した場合、ReturnFileNameはそれぞれの場合に以下の文字列を返す。
    ''' test.xml →　test.xml
    ''' test.XML →　test.XML
    ''' test     →　test.xml
    ''' test.xxx →　test.xxx.xml
    '''
    ''' つまり、
    ''' ●拡張子がxmlの場合はそのまま。
    ''' ●拡張子がなければ".xml"を追加する。
    ''' ●既にxml以外の拡張子が付いている場合は、その後に".xml"を追加する。
    ''' </summary>
    Private Function ReturnFileName(sFileName As String, ext As String)
        Dim index As Integer
        Dim tempExt As String

        'extに"."が付いていない場合は"."を追加する。
        If Not ext.Contains(".") Then
            ext = "." & ext
        End If

        index = sFileName.LastIndexOf(".")
        Select Case index
            Case Is = -1 '▼拡張子が付いていない場合
                sFileName = sFileName & ext
            Case Is > 0 '▼拡張子が付いている場合は拡張子が ext の場合とそうでない場合で処理を分ける。
                'sFileNameの拡張子を取得する。
                tempExt = sFileName.Substring(index, sFileName.Length - index)
                '▼拡張子が ext でない場合
                If tempExt.ToLower <> ext.ToLower Then
                    sFileName = sFileName & ext
                End If
        End Select

        Return sFileName
    End Function
End Class