Discussion :

[boss_gama]

Je possède un formulaire comportant un input de type file. Je veux récupérer le fichier et l'uploader sur le serveur. J'ai trouvé plusieurs scripts, mais je ne comprends pas comment le composant trouve ce fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<%
set mySmartUpload = server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.maxfilesize = 5000000
mySmartUpload.allowedfileslist = "htm,html,txt,doc,gif,jpg,pdf,jpeg,zip"
mySmartUpload.upload
for each fichier in mySmartUpload.files
	if not fichier.ismissing then
		fichier.saveas(server.mappath("fichier")  & "\" & fichier.filename)
		if fichier.filename <> "" then fichierimporter = fichier.filename
	end if
next
%>

for each fichier in mySmartUpload.files fait références a quels fichiers???

[boss_gama]

Dans le doute j'ai testé une des solutions mais rien ne se passe... Le fichier n'est pas uploadé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
<form method="POST" action="upload.asp" enctype="multipart/form-data">
	<table align="center" width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#21768B">
		<tr>
			<td>
				<input type="file" name="file1" size="20">
				<input type="submit" value="OK" name="action">
			</td>
		</tr>
	</table>
</form>

et le fichier upload.Asp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<%
	response.expires = 0
	response.buffer = true
	On error resume next
	intCount = 0' Création de l'Objet
	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	mySmartUpload.MaxFileSize = 500000 
	mySmartUpload.AllowedFilesList = "htm,html,txt,doc,gif,jpg,pdf,jpeg,zip,rar,ace"
	mySmartUpload.Upload
	For each file In mySmartUpload.Files
	response.write file
		If not file.IsMissing Then
			file.SaveAs(Server.MapPath(".") & "\Tmp\" & file.name)
			response.write Server.MapPath(".") & "\Tmp\" & file.name
		End If
	Next
	Set mySmartUpload = nothing
%>

[boss_gama]

bon en fait ca marche. L'administrateur avait juste "oublié" d'enregistrer les dll, et comme j'avais la commande on error resume next... je l'avais point vu
Donc maintenant le transfert se fait correctement, à l'exception d'un message d'erreur quand j'enleve la commande on error resume next: propriété default manquante. L'upload marche si je la met donc ce n'est pas une erreur critique mais c'est une erreur quand meme...
Une idée?

[Immobilis]

Salut,

T'as pas la ligne à laquelle se produit l'erreur?
Là peut-être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
	For each file In mySmartUpload.Files
	response.write file

A+

[boss_gama]

non je n'avais pas la ligne de l'erreur( ou plutot cetait la ligne 0 ce qui veut tout dire et rien dire) Mais ca venait effectivement du response.write. Je te remercie