codice:
data_nome_documento = year(date()) & right("00"& month(date()), 2) & right("00"& day(date()), 2) & right("00"& hour(time()), 2) & right("00"& minute(time()), 2) & right("00"& second(time()), 2)
If Not oUpload.EOF then
oUpload.MoveFirst
contfile=0
reDim arr_file(0), arr_nome(0)
Do While Not oUpload.EOF
arr_file(contfile) = "foto_"& oUpload.Files("Name") &"_"& data_nome_documento &"."& oUpload.Files("ext")
oUpload.SaveAs(arr_file(contfile))
contfile = contfile + 1
oUpload.MoveNext
Loop
documento_file = arr_file(0)
else
errore = "inserire il file del documento"
End if
Ad esempio per un file.
Roby