Asp.net - comment faire un upload de fichier simple (du client vers le serveur)

Commenter

Contenu du snippet

Très souvent dans des projets WEB, une partie avec un upload de fichier devient nécessaire, dans ce petit exemple, vous aurez la base pour gérer un upload de fichier.

L'exemple suivant vous montrera un upload de fichier Image (JPG) avec un renommage de l'image fixe.
Vous pourrez adapter cet exemple très facilement et ajouter de nombreuses options comme la génération de miniature (cf source précédente), ou l'enregistrement en base, ... etc.

L'exemple vous fournit la partie aspx concernant l'Upload (un Input, un label et un bouton), ainsi que le Code Behind gérant l'évènement du click sur le bouton.

Source / Exemple : 


' -------------- Dans le fichier Gabarit (ASPX) -----------------------

<INPUT id="BtnChoixFichier" type="file" name="BtnChoixFichier" 
		runat="server" width="100%"><BR>
<asp:Label id="AlertUpload" runat="server" Visible="False" 
		Font-Size="X-Small" BackColor="Transparent" 
		BorderColor="Transparent" 
		ForeColor="SteelBlue" Font-Bold="True"></asp:Label><BR>
<asp:button id="EnvoieFichier" runat="server" CssClass="btnSuivant" 
		Text="Envoi du Fichier" Width="200px"></asp:button><BR>

' -------------- Dans le fichier Code Behind (ASPX.VB) ---------------

Protected WithEvents BtnChoixFichier As System.Web.UI.HtmlControls.HtmlInputFile
....

Private Sub EnvoieFichier_Click(ByVal sender As System.Object, _
		ByVal e As System.EventArgs) Handles EnvoieFichier.Click
 ' Envoie le fichier choisi 
 If (BtnChoixFichier.PostedFile.ContentLength < 1) Then
  AlertUpload.Visible = True
  AlertUpload.Text = "Attention : Il manque le fichier ou celui-ci est vide."
 Else
  If (BtnChoixFichier.PostedFile.ContentLength > 100000) Then
   AlertUpload.Visible = True
   AlertUpload.Text = "Attention : Taille du Fichier trop importante"
  Else
   Dim exc As New Exception()
   dim RepertoirePhoto As String = "C:\\MonRepertoire"
   Dim Nom_Image as String = "MonFichierImage.jpg"

   Try
    BtnChoixFichier.PostedFile.SaveAs(RepertoirePhoto & Nom_Image)
    AlertUpload.Visible = True
    AlertUpload.Text = "Upload du fichier : " & Nom_Image & " - Taille : " & _
    		BtnChoixFichier.PostedFile.ContentLength

   Catch exc
    AlertUpload.Visible = True
    AlertUpload.Text = "Erreur dans l'enregistrement du Fichier : " & Nom_Image
   End Try

  End If
 End If

End Sub
' -----------------------------------------------------

Conclusion :


Bon coding.

Romelard Fabrice (Alias F___)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)