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?
codice:
 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