ファイルアップロード時にファイルの種類を画像のみに限定する方法

Dim file As HttpPostedFile = Request.Files("file1")



   If file.ContentLength > 0 Then



      Select Case file.ContentType

         Case "image/gif"

            GIF画像の処理



         Case "image/jpeg", "image/jpg", _

              "image/jpe", "image/jfif", _

              "image/pjpeg", "image/pjp"

            JPEG画像の処理



         Case "image/png"

            PNG画像の処理



         End Select

Dim file As HttpPostedFile = Request.Files("file1")

Dim imageFile As New Bitmap(file.FileName)

Dim decoders() As ImageCodecInfo = ImageCodecInfo.GetImageDecoders



   For Each imgDecode As ImageCodecInfo In decoders

      If imgDecode.FormatID.ToString = imageFile.RawFormat.Guid.ToString Then

         Select Case imgDecode.FormatDescription

            Case "GIF"

               'GIFの処理



            Case "JPEG"

               'JPEGの処理



            Case "PNG"

               'JPEGの処理



         End Select

      End If

   Next