Grazie Optime per il tuo spunto ...

Ho fatto cosi', partendo dalla tua rispota, ottenendo una pagina decisamente leggibilissima ma purtroppo non mi vengono creati i file ... non mi succede niente e non ottengo nessun errore ...



<%
Dim objFSO
Dim c_proj, c_rev
Dim c_file(27), i
Dim file(27)
'
c_proj = Request("c_proj")
c_rev = Request("c_rev")
For Each i In c_file
c_file(i) = Request("c_file"&i)
Next
'
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(Server.MapPath("/aesi_quality/schede_progetto/d_qscan/"&Left(c_proj, 4)&"/"&c_proj&"/"&c_proj&"_custom/")) Then
objFSO.CreateFolder("D:\qscan_docs\"&Left(c_proj, 4)&"\"&c_proj&"\"&c_proj&"_custom")
End If
'
For Each i In c_file
If Len(c_file(i))>0 Then Set file(i)=objFSO.GetFile(c_file(i))
Next
'
For Each i In c_file
If Len(c_file(i))>0 Then file(i).Copy("D:\qscan_docs\"&Left(c_proj, 4)&"\"&c_proj&"\"&c_proj&"_custom\"&c_proj&"_r"&c_ rev&"_"&i&"_"&file(i).ShortName)

Next
'
Set objFSO = Nothing
For Each i In c_file
Set file(i) = nothing
Next
'
'
%>