Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/09/2006, 03:34
estoquera44
 
Fecha de Ingreso: mayo-2003
Mensajes: 70
Antigüedad: 22 años
Puntos: 0
Error con Aspjpeg. No renombra si existe.

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.

Cita:
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.