Numerare file a seguito di upload

[fraude]

Ciao a tutti.

Ho scritto questa funzione che dovrebbe rinominare in automatico un file inviato in upload al server, quando appunto sul server è presente un file con lo stesso nome (quindi il file è già esistente); la funzione non dà errori ma il file viene sempre sovrascritto, dove sbaglio?

 Dim gFS
Function GetUniqueFileName(FileName)
  if IsEmpty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")

  Counter = 1
  NewFileName = FileName
  
  if gFS.FileExists(NewFileName) then
		Do 
			Counter = Counter + 1
			NewFileName = Counter & "_" & FileName
		Loop while gFS.FileExists(NewFileName)
  end if
  GetUniqueFileName = NewFileName
End Function


function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey, SaveFiless

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

	If Err.Number<>0 then Exit function

    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = ""
        for each fileKey in Upload.UploadedFiles.keys
                        SaveFiles = GetUniqueFileName(SaveFiles & Upload.UploadedFiles(fileKey).FileName) & " (" & Upload.UploadedFiles(fileKey).Length & " Bytes)
 "
            response.write SaveFiles &"
"
else
        SaveFiles = "KO."
    

end if
end function

Grazie

[fraude]

Idee?

[fraude]

Se c'è da cambiare metodo o funzione sono disponibile a farlo...

[fraude]

Modifico così:

Dim gFS
Function GetUniqueFileName(SaveFiles)
  if IsEmpty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")

  Counter = 1
  NewFileName = SaveFiles
  
  response.write NewFileName &" qui
"
  
  if gFS.FileExists("d:\inetpub\...\"& NewFileName &"") then
		Do 
			Counter = Counter + 1
			NewFileName = Counter & "-" & SaveFiles
            response.write NewFileName &" qua
"
		Loop while gFS.FileExists("d:\inetpub\...\"& NewFileName &"")
  end if
  GetUniqueFileName = NewFileName
  End Function


function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    
	If Err.Number<>0 then Exit function
	
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = ""
        for each fileKey in Upload.UploadedFiles.keys


            SaveFiles = SaveFiles & GetUniqueFileName(Upload.UploadedFiles(fileKey).FileName)

response.write SaveFiles &"
" 

else
        SaveFiles = "KO"
    

end if
end function

I vari response.write restituiscono:

test.csv qui
2-test.csv qua
2-test.csv

Ma sul server si carica sempre test.csv e non 2-test.csv

Perchè???

[fraude]

test.csv - Nome File originale 
2-test.csv - Nome file nuovo 

------

2-test.csv - Nome file nuovo; 
test.csv (20408 Bytes) - Sul server

[Baol74]

Scusa, prima salva il file

Upload.Save(uploadsDirVar)

e poi lo rinomini ????

Credo che tu debba assegnare il nuovo nome alla variabile

Upload.UploadedFiles(fileKey).FileName

prima di salvare.

...ma non conosco l'upload che stai usando....per cui è solo un'ipotesi

[fraude]

Grazie Baol per il suggerimento, ho risolto in questo modo senza più usare la funzione:

Set gFS = CreateObject("Scripting.FileSystemObject")
        if gFS.FileExists("d:\inetpub\...\" & SaveFiles & "") then
        Do
			Counter = Counter + 1
			NewFileName = SaveFiles
			NewFileName = Counter & "-" & NewFileName  
           Loop while gFS.FileExists("d:\inetpub\...\"& NewFileName &"")
            gFS.MoveFile "d:\inetpub\...\"&SaveFiles&"", "d:\inetpub\...\"&NewFileName&""
  set gFS = nothing
  end if

E sembra funzionare... cioè rinomino in sequena numerata tutti i files che hanno lo stesso nome...

[gigi73pc]

Ho letto e provato ad usare il codice, ma non ci riesco, per favore potrebbe aiutarmi a usarlo?
grazie

[fraude]

ma qual'è il problema?

[gigi73pc]

Mi scusi tanto x averla disturbata, il codice che all'inizio ha scritto sembra uguale a quello di freeupload asp, tranne per la parte che non c'è del controllo dell'esistenza del file con relativo incremento +1.
Lei dice di avere risolto togliendo la funzione, ma ho provato a copiare e metterla fra le righe
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
prima, dopo, ma non riesco a farlo funzionare.
Mi sarebbe veramente d'aiuto se mi puo aiutare in questo,
come ha messo il codice dentro il blocco di upload??

grazie e scusi