拡張子をチェックする

大文字、小文字の区別なく拡張子をチェックする。
  • filePath: チェックするファイルパス
  • ext : 拡張子

Function checkFileExtension( filePath, ext )
    Dim objFSO

    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    if Err.Number <> 0 Then
        WScript.Quit()
    end if
    checkFileExtension = ( UCase( objFSO.GetExtensionName( filePath ) ) = UCase( ext ) )
    set objFSO = Nothing
end Function