1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Protected Sub BtnEnvoyer_Click(sender As Object, e As EventArgs) Handles BtnEnvoyer.Click
Dim Fichier As String = Me.MapPath("~/Documents/")
With FileUpload1
If .HasFile AndAlso .PostedFile.ContentType = "application/pdf" Then
Fichier & = .FileName
.SaveAs(Fichier)
lblMessageReussite.Text = String.Format("le fichier <b> {0} </b>" _
& "<br /> a été sauvegardé sur le serveur avec suucès." _
& " <br /> Taille:{1}" _
& "<br /> Type MIME : {2}", _
.FileName, _
.PostedFile.ContentLength, _
.PostedFile.ContentType)
Else
lblMessageEchec.Text = "Le fichier est incorrect.Il n'a pas été envoyé !"
End If
End With |
Partager