Optime ti ringrazio tanto, mi hai risolto il problema !!!

Visto che nel mio caso gli array hanno una dimensione fissa di 27 il ReDim non lo uso ...

Grazie ancora !!!



<%
Dim objFSO
Dim c_proj, c_rev
Dim c_file(27), file(27), i
'
c_proj = Request("c_proj")
c_rev = Request("c_rev")
For i = 1 to 27
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 i = 1 to 27
If Len(c_file(i))>0 Then Set file(i)=objFSO.GetFile(c_file(i))
Next
'
For i = 1 to 27
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 i = 1 to 27
Set file(i) = nothing
Next
'
'
%>