memorizzare filename durante upload

[agenti]

<%
'############UPLOAD FILE ##################
Dim oUpload
Dim file(3)
file(i) = "file(i)"

Set oUpload= new cUpload
With oUpload

.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "\italiano\upload"
.Load
.UploadOnly "files"

While Not .Eof
i=i+1
.Save
file(i)=.GetFileName

.MoveNext
Wend

in poche parole dovrei memorizzare i nome dei file che si creano durante l'upload per poi usarli per un invio di uan mail alla fine dell'upload stesso.

Potete darmi una dritta?
Grazie.

[viki1967]

prova così:

.Save
response.Write "il file " & .GetFileName &" è stato salvato 
"
Titolo = .Form("Titolo")
Percorso = .GetCompletePathFile

[agenti]

ciao viky, forse non mi spiego...
la cosa è più semplice di quello che sembra

questo ciclo
può uploadare 3 file...

io devo ottenere il nome di ogni file uplodato e memorizzarlo in 3 variabile qualsiasi

file1
file2
file3

per usarle fuori dal ciclo

------------------------
file(i)=.GetFileName

questo mi confonde...

[Baol74]

Inanzitutto togli UploadOnly "files" che non ha alcun senso.
Togli file(i) = "file(i)" che non ha senso.
Prima del while metti i=-1
Dim Files(2) e non Dim Files(3)

Al posto di
file(i)=.GetFileName

Metti
file(i)=.GetCompletePathFile

Quindi potrai fare l'attach dei tre files

For Each PathFile In File
 objMail.AddAttachment PathFile
Next

Oppure:

 
<% 
'=====================================
'Creazione Oggetto Email
'=====================================
Set objConfig = CreateObject("CDO.Configuration") 
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort  
objConfig.Fields(cdoSMTPServer) = "XXX.XXX.XXX.XXX"
objConfig.Fields.Update 

Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = objConfig 		
objMail.To 		=  ""
objMail.From 		=  ""
objMail.CC 		=  ""
objMail.TextBody 	=  ""
objMail.Subject 	=  ""

'=====================================
'Upload
'=====================================
Dim oUpload 
Set oUpload= new cUpload 
With oUpload 
	.EnabledAspUpload = False 
	.EnabledImageSize = False
	.EnabledLog = False 
	.AutoRename = True 
	.Overwrite = False 
	.SetPath "\italiano\upload" 
	.Load 
	While Not .Eof 
		.Save 
		objMail.AddAttachment .GetCompletePathFile
		'Attenzione! Questa riga cancellerà il file dal server
		oUpload.Fso.DeleteFile .GetCompletePathFile ,True 
		.MoveNext 
	Wend 
End With
objMail.Send
set objMail = nothing
set objConfig = nothing
Set oUpload = Nothing
%>