NomeFoto = "Foto" & System.IO.Path.GetExtension(inputFile.PostedFile.FileName)) 
                    
                 
  'Dim myDirectory As Directory 
  Directory.CreateDirectory(Server.MapPath("public\Annunci")) 
                inputFile.PostedFile.SaveAs(Server.MapPath("public\Annunci") & "\" & NomeFoto) 
            '========== Ridimensionamento Immagine pic ====== 
            Dim objBMP As System.Drawing.Bitmap 
            Dim objGraphics As System.Drawing.Image 
 
            'open image 
            objBMP = New Bitmap(Server.MapPath("public\Annunci") & "\" & NomeFoto) 
            Dim imgw As Integer = objBMP.Width 
            Dim imgh As Integer = objBMP.Height 
 
            ' Creating a Thumbnail with scale 
            Dim maxImage As Integer = 300 
            Dim newimgw As Integer 
            Dim newimgh As Integer 
            If imgw > imgh Then 
                newimgw = maxImage 
                newimgh = (imgh * maxImage) / imgw 
            ElseIf imgh > imgw Then 
                newimgw = (imgw * maxImage) / imgh 
                newimgh = maxImage 
            Else 
                newimgw = maxImage 
                newimgh = maxImage 
            End If 
 
            'ThumbNail it!! 
            objGraphics = objBMP.GetThumbnailImage(newimgw, newimgh, Nothing, IntPtr.Zero) 
 
            ' creates unique name for the thumbnail and save it on webserver folder 
            objGraphics.Save(Server.MapPath("public\Annunci") & "\pic300-" & NomeFoto)