• C#
• VB.NET
• J#(Java)
• VB6

サンプルコード

以下にサンプルコードを示します。

' -------------------------------------------------------------------------------
'       指定したパスに拡張子が含まれるかどうかを返します。
'
' @Param    stPath  検査対象となるパス文字列。
' @Return           拡張子を含む場合は True。それ以外は False。
' -------------------------------------------------------------------------------
Public Function HasExtension(ByVal stPath As String) As Boolean
    Dim iPathSeparator As Integer
    iPathSeparator = InStrRev(stPath, "\")

    Dim stTargetPath As String
    stTargetPath = Mid$(stPath, iPathSeparator + 1)

    Dim iExtension As Integer
    iExtension = InStrRev(stTargetPath, ".")

    If iExtension > 1 Then
        If iExtension < Len(stTargetPath) Then
            HasExtension = True
        End If
    End If
End Function

使用例は以下のようになります。

    ' 拡張子を含むかどうか判断する
    If HasExtension("C:\Hoge.txt") Then
        MessageBox.Show("拡張子を含んでいます")
    Else
        MessageBox.Show("拡張子を含んでいません")
    End If

関連するリファレンス

準備中です。