Imports System.Drawing.Imaging
Private Function getJpegExtensions(ByVal mimeType As String) As String()
For Each enc As ImageCodecInfo In ImageCodecInfo.GetImageEncoders()
If enc.MimeType = "image/jpeg" Then
Return enc.FilenameExtension.Split(";")
End If
Next
Return Nothing
End Function
Private Function getJpegMimeType(ByVal ext As String) As String
For Each enc As ImageCodecInfo In ImageCodecInfo.GetImageEncoders()
For Each fileExt As String In enc.FilenameExtension.Split(";")
If fileExt.ToLower() = "*." & ext.ToLower() Then
Return enc.MimeType
End If
Next
Next
Return Nothing
End Function