1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| If OEUVRE_IMAGE.HasFile Then
Dim fileExt As String
fileExt = System.IO.Path.GetExtension(OEUVRE_IMAGE.FileName)
If (fileExt = ".JPG") Or (fileExt = ".GIF") Or (fileExt = ".PNG") Then
Try
Dim NomPhoto As String = OEUVRE_IMAGE.PostedFile.FileName
Dim NomPhotoFinal As String = FichierPhoto & System.IO.Path.GetExtension(NomPhoto)
OEUVRE_IMAGE.PostedFile.SaveAs(MonChemin.Chemin & "/galerie/" & Request.QueryString("galerie_id") & "/" & NomPhotoFinal)
NomUploadImage = NomPhotoFinal
ContentUploadImage = OEUVRE_IMAGE.PostedFile.ContentType
Catch ex As Exception
LblErreurImage.Text = "Erreur : " & ex.Message & "<br>"
End Try
Else
LblErreurImage.Text = "Seul les .jpg sont autorisés<br>"
End If
Else
NomUploadImage = FichierPhoto
ContentUploadImage = OEUVRE_IMAGE.PostedFile.ContentType
End If |