Error con Aspjpeg. No renombra si existe.

[estoquera44]

Buenos dias,

a ver si hay alguien que me pueda ayudar con el tema.

resulta que subo 2 archivos mediante aspupload pero uno de ellos lo trato con aspjpeg, en este caso file1, pues bien, cuando se suben a servidor file1 sobreescribe si existe uno con el mismo nombre, no lo renombra como suele hacer mientras de file2 si que renombra. Alguien sabe porque???

Como podeis comprobar en el codigo existe la orden Upload.OverwriteFiles = False para que renombre en ese caso pero no lo hace.

Set Upload = Server.CreateObject("Persits.Upload")

Upload.ProgressID = Request.QueryString("PID")

Upload.OverwriteFiles = False

Upload.SetMaxSize 5500000 ' Limit files to 1MB
Path = Server.MapPath("/articulos/prensa/")

Count = Upload.Save

If Count > 0 then

Set File1 = Upload.Files("file1")

Set File2 = Upload.Files("file2")

'------------------------------------------------------------------------------------------

Set jpeg = Server.CreateObject("Persits.Jpeg")

jpeg.OpenBinary( File1.Binary )

L = 150
jpeg.Width = L
jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

SavePath = Path & "\archivos_articulos\" & File1.FileName

jpeg.Save SavePath

'----------------------------------------------------------------------------------------

File2.SaveAs Path & "\archivos_articulos\link__" & File2.FileName

'----------------------------------------------------------------------------------------


End if

Gracias por vuestra ayuda.