Quesito su Upload di Baol

[zetaweb]

ragazzi avendo questo codice, come faccio ad assegnare un nome ad ogni file uploadato?

<%
Dim oUpload 
Set oUpload = new cUpload 
oUpload.AutoRename = True 
oUpload.Overwrite = False 
oUpload.SetPath "public\" 
oUpload.Upload 

while not oUpload.EOF 
oUpload.Save() 
nome = oUpload.GetFileNAme() 
oUpload.MoveNext 
Wend 
%>

Ho provato aggiungengo la riga che vedete in neretto, ma se i file sono piu di uno ovviamente mi restituisce soltanto l'ultimo aggiunto.

Potete aiutarmi?
Grazie mille!

[santino83]

così non assegni niente, stai solo mettendo il nome dle file uplodato in una varibile (per giunta sovrascrivendola ogni volta...)

che devi fare?...o usi un'array oppure concateni la stringa

nome=nome & "|" & oUpload.GetFileNAme()

[zetaweb]

Giusto dovevo prima concatenare i vari risultati e poi fare l'array!!
Che pollo...
Cercavo direttamente la soluzione nell'array e non trovavo la soluzione.
Facendo così recupero perfettamente i valori:

<%
while not oUpload.EOF
oUpload.Save()
nome = nome &"|"& oUpload.GetFileNAme()
oUpload.MoveNext
Wend

Dim campo(10)

nomi = split(nome, "|")
for i = 1 to UBound(nomi)
campo(i) = nomi(i)
next

%>

Gracias!

[santino83]

prego ma questo è inutile:

Dim campo(10) 

nomi = split(nome, "|") 
for i = 1 to UBound(nomi) 
campo(i) = nomi(i) 
next

perchè nomi è già un array dopo la chiamata a split...quindi mi sembra inutile inserirlo in un altro array

[zetaweb]

giustamente ho già gli indici dallo split...
vabè ormai sono andato avanti... non credo sia un problema, no?

[santino83]

problema no ma spreco di risorse si...giusto per fare del codice migliore (già in molti criticheranno l'uso di split, almeno non peggioriamo le cose)

[zetaweb]

perchè criticare l'uso dello split?