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
