Buona giornata a tutti,
sono alla ricerca di un (forse piccolo) piccolo aiutino per fare un upload di immagini con resize. Non conosco asp net, ma qualche amico proprio qui mi ha consigliato di usarlo perchè meglio di asp.
Cmq, ho trovato un codice che mi sono adattato per fare un semplice upload di immagini:
private sub Upload(sender as object, e as system.eventargs)
Dim sFile as String
Dim sSplit() as string
Dim sFileType as String
Dim sPath as String

sPath = Server.MapPath("\xpr\public\") 'Percorso dove Uploadare l' immagine

'Prelevo il Nome del File
sFile = FileUpload.PostedFile.FileName
sSplit = Split(sFile, "\")
sFile = sSplit(uBound(sSplit))

'Controllo se è un File Immagine
if len(sFile) <> 0 then

sFileType = sFile.Split(".")(1).ToString
sFileType = uCase(sFileType)

'Condizione in cui verifico il tipo di Formato supportato per l' upload
if (sFileType = "GIF") or (sFileType = "JPG") or (sFileType = "JPEG") then
lblmsg.text = "Immagine"
sPath = sPath & "\"
sPath = sPath & sFile
Try
'Carico l' immagine
FileUpload.PostedFile.SaveAs(sPath)
lblmsg.text = "Immagine Caricata Correttamente"

Catch Ex as Exception
'Errore durante il Caricamento
lblmsg.text = "Errore durante l' upload<br>Errore: " & E
il problema che mi piacerebbe fare anche un resize, o prima o dopo il caricamento. E' possibile farlo?
Se qualcuno può aiutarmi, grazie ...

'Carico l' immagine
          'FileUpload.PostedFile.SaveAs(sPath)

 ResizeAndSave(FileUpload.PostedFile.InputStream, 100, 100, sPath)

Private Sub ResizeAndSave(imgStr As Stream, Width As Integer, Height As Integer, FileName As String)
        'creo il bitmap dallo stream
        Dim bmpStream As System.Drawing.Image = System.Drawing.Image.FromStream(imgStr)
        'creo un nuovo bitmap ridimensionandolo
        Dim img As New Bitmap(bmpStream, New Size(Width, Height))
        'salvo l'immagine ridimensionata
        img.Save(FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

        Response.Write("fatto!")
    End Sub