Salve a tutti ho il problema che dopo un ridimensionamento delle foto jpeg ho la perdita di tutti i dati exif. Come posso ridimensinare una foto preservandone i dati exif. Uso il seguente Codice:

Dim SlideHeight, SlideWidth As Integer
Dim bmp As System.Drawing.Bitmap

bmp = New System.Drawing.Bitmap(filesorgente)

Dim myRatio As Double = bmp.Width / bmp.Height

If myRatio > 1 Then
SlideHeight = bmp.Height / bmp.Width * LARGHEZZA
SlideWidth = LARGHEZZA
ElseIf myRatio < 1 Then
SlideHeight = LARGHEZZA
SlideWidth = bmp.Width / bmp.Height * LARGHEZZA
ElseIf myRatio = 1 Then
SlideHeight = ALTEZZA
SlideWidth = LARGHEZZA
End If

Dim newbmp As New System.Drawing.Bitmap(bmp, SlideWidth, SlideHeight)
Dim fi As String = Percorsodest
newbmp.Save(fi & nomefileDest, System.Drawing.Imaging.ImageFormat.Jpeg)


Ci vorrebbe un oggetto che conserva i valori exif del file sorgente e li memorizza dopo il salvataggio e ridimensionamento del file