VBS/ファイルの拡張子を取得する

【引用元URL】http://officetanaka.net/excel/vba/tips/tips57.htm

拡張子を取得するには、FileSystemObjectオブジェクトを使う手があります。

Sub Sample5()
    Dim Target As String
    Target = Application.GetOpenFilename()
    With CreateObject("Scripting.FileSystemObject")
        If LCase(.GetExtensionName(Target)) = "xls" Or _
           LCase(.GetExtensionName(Target)) = "xlsx" Then
            ''Targetに対する処理
        Else
            MsgBox "Excelのブックを選択してください。", 48
        End If
    End With
End Sub