Sub ResizeAndSave(path as string , FileName As String,w as integer, h as integer)
dim nuovonome as string
nuovonome=path & "\" & FileName
dim nometemp= path & "\temp.tmp"
'nuove dimensioni
Dim fle As FileStream = New FileStream(nuovonome,FileMode.Open)
'creo il bitmap dallo stream
Dim bmpStream As System.Drawing.Image = System.Drawing.Image.FromStream(fle)
'creo un nuovo bitmap ridimensionandolo
Dim img As New Bitmap(bmpStream, New Size(maxw, Convert.ToInt32(maxW / w * h)))
'salvo l'immagine ridimensionata
img.Save(nometemp, System.Drawing.Imaging.ImageFormat.Jpeg)
img.dispose
fle.Close()
'cancella l'originale
file.delete(nuovonome)
file.move(nometemp,nuovonome)
End Sub