<%
' *****************************************************************************
' Réalisé par Nicolas SOREL ( Nix pour les intimes :) )
' Pour le site ASPFr.com
' Retrouvez d'autres scripts ASP sur www.ASPFr.com
' Vous avez le droit d'utiliser ce script dans vos pages mais si vous souhaitez
' l'exposer sur un autre site de programmation merci de me contacter
' (contact@vbfrance.com)
' *****************************************************************************
%>
Envoyer des fichiers
<%
Select Case Request.Querystring("Etape")
Case ""
%>
<%
Case "1"
Dim MonUpload
Dim i
Set MonUpload = New UplFichier
' .NbFichiers Retourne le nombre de fichiers Uploadé
For i = 1 To MonUpload.NbFichiers
Response.Write "Fichier N° " & i & "
"
' NomFichier(ID) Retourne le nom du fichier uploadé
Response.Write "Nom du fichier : " & MonUpload.NomFichier(i) & "
"
' TailleFichier(ID) Retourne la taille du fichier uploadé
Response.Write "Taille : " & MonUpload.TailleFichier(i) & " octets
"
' ExtensionFichier(ID) Retourne l'extension du fichier uploadé
Response.Write "Extension : " & MonUpload.ExtensionFichier(i) & "
"
' TypeFichier(ID) Retourne le type mime du fichier uploadé
Response.Write "Type mime : " & MonUpload.TypeFichier(i) & "
"
' NomForm(ID) Retourne le nom du champ dans lequel était le fichier uploadé
Response.Write "Nom de l'Input : " & MonUpload.NomForm(i) & "
"
' CheminFichierDistant(ID) Retourne le chemin distant sur lequel le fichier uploadé se trouvait
Response.Write "Chemin distant : " & MonUpload.CheminFichierDistant(i) & "
"
' .NouveauNom Optionnel , si vous souahitez forcer le nom du fichier en local
' Par défaut, le nom du fichier Uploadé sera utilisé
' Exemple :
' MonUpload.NouveauNom = "NouveauNomDuFichier.txt"
' SauveFichier(ID) sauvegarde le fichier Uploadé
MonUpload.SauveFichier(i)
' ID représente le N° du fichier uploadé.
' Si vous n'avez qu'un champ pour uploader, alors le ID sera 1
' Dans cet Exemple, il y a plusieurs fichiers uploadé donc, je l'ai
' mis dans une boucle pour vous montrer comment faire
Next
Set MonUpload = Nothing
End Select
%>