Ciao a Tutti,

ho il seguente problema:

Il server ha il seguente path: http: //nome_server/quality/customer/cu_index.asp

Nella pagina cu_index.asp ho una form con 7 input type file:

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<title>Index: Customer</title>
<script type="text/javascript">

function go() {
document.FrontPage_Form_cu.action= "cu_upload.asp?c_file1="+document.getElementById(' file_1').value+
"&c_file2="+document.getElementById('file_2').valu e+
"&c_file3="+document.getElementById('file_3').valu e+
"&c_file4="+document.getElementById('file_4').valu e+
"&c_file5="+document.getElementById('file_5').valu e+
"&c_file6="+document.getElementById('file_6').valu e+
"&c_file7="+document.getElementById('file_7').valu e
document.FrontPage_Form_cu.submit(); }

<form method="POST" name="FrontPage_Form_cu">
...
<input type="file" name="file_1" id="file_1">
<input type="file" name="file_2" id="file_2">
<input type="file" name="file_3" id="file_3">
<input type="file" name="file_4" id="file_4">
<input type="file" name="file_5" id="file_5">
<input type="file" name="file_6" id="file_6">
<input type="file" name="file_7" id="file_7">

<button onClick="go">Save</button>

Quando uno schiaccia il pulsante Save viene eseguita la pagina cu_upload.asp con la quale vorrei fare un upload multiplo dei 7 files in una cartella virtuale del server.

Ora come ora, il tutto funziona solo per il primo file mentre per gli altri 6 files niente.

<--- cu_upload.asp -->



<%
Dim NomeFile, oUpload, objFSO, objFolder, objStartFolder, colFiles, objFile, prefix, str
Dim c_file(7), file(7), i
For i = 1 to 7
c_file(i) = Request("c_file"&i)
Next
'
Set oUpload = new cUpload
oUpload.SetPathFisico "d:\qscan_docs\2013\2013_custom"
oUpload.AutoRename = True
oUpload.Load
NomeFile = oUpload.GetFileName()

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(Server.MapPath("/quality/schede_progetto/d_qscan/2013/2013_custom/")) Then
objFSO.CreateFolder("D:\qscan_docs\2013\2013_custo m")
End If
objStartFolder = "d:\qscan_docs\2013\2013_custom"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files


For i = 1 to 7
If Len(c_file(i))>3 Then oUpload.SaveAs NomeFile&"_"&i
Next


Set colFiles = Nothing : Set objFolder = Nothing : Set objFSO = Nothing
oUpload.close
Set oUpload=Nothing
'
%>

In questo modo riesco a copiare solo il primo file ...

Ho poi provato l' esempio presente in uno dei topics del forum:

test.asp

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="test_save.asp">
File : <INPUT TYPE="file" NAME="Campo1">

File : <INPUT TYPE="file" NAME="Campo2">

File : <INPUT TYPE="file" NAME="Campo3">

File : <INPUT TYPE="file" NAME="Campo4">

File : <INPUT TYPE="file" NAME="Campo5">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

test_save.asp



<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "test\"
oUpload.UploadAndSave
Set oUpload=Nothing
%>


se creo una cartella test funziona, ma essa e' una cartella appartenente ad un percorso "fisico"
nel mio caso invece devo scaricare i files in un percorso virtuale:

nel mio caso la cartella del pc D:\q_scan_docs e' la cartella del server:

\\nome_server\schede_progetto\d_qscan

pertanto se scrivo il percorso cosi' come mi andrebbe, non funziona !!!

<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "\\nome_server\schede_progetto\d_qscan\2013\2013_c ustom\test"
oUpload.UploadAndSave
Set oUpload=Nothing
%>


Come fare ???

Grazie mille in anticipo !!!!