Cambiar nombre de imagen AspUpload

Elig · #1 (**permalink**) 04/02/2007, 12:32

Del manual de de aspupload.com he deducido lo siguiente.

Para poder cambiar el nombre de una imagen debo cambiar...

Count= Upload.Save(Server.MapPath("upload/"))(mi ruta)

por

Count= Upload.Save(para que no guarde)

de esta manera puedo cambiar el nombre del fichero antes de guardarlo.

Lo hago con este ejemplo:

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

Count= Upload.Save
Set File=Upload.Files("FILE1")

nombre_prueba="Prueba"

File.SaveAs "Server.MapPath('upload/')"&nombre_prueba&"."& Upload.Files("FILE1").ImageType

Claro está que "FILE1" como viene en el ejemplo es el nombre del campo del formulario que envío.

¿Por qué no funciona?

Gracias por vuestra ayuda.

Mlora · #2 (**permalink**) 04/02/2007, 17:17

Prueba asi, a ver si funciona:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Path = "D:\XVRT\...\...\" 'Ruta fisica del servidor

Count = Upload.Save(Path)
Set File=Upload.Files("FILE1")

For Each File in Upload.Files
If File.ImageType <> "UNKNOWN" Then Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( File.Path )
jpeg.Width = 425 'Ancho que quieras
jpeg.Height = 300 'Alto que quieras
SavePath = Path & "\NombreImagen" 'Puedes utilizar una variable
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath
Next
%>

Espero que sea de tu ayuda.
Un saludo.

Elig · #3 (**permalink**) 06/02/2007, 05:05

Gracias por tu ayuda. Ya te digo si me funciona.

Saludos.

Elig · #4 (**permalink**) 06/02/2007, 07:03

En el localhost no lo he hecho funcionar... pero aparte de esto, no dispongo de la ruta física del servidor. ¿Cómo solucionarlo?

Saludos

Elig · #5 (**permalink**) 06/02/2007, 07:57

La solución para una ruta física ya la tengo.

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count= Upload.Save
Set File=Upload.Files("FILE1")

nombre="prueba"
'esto no vale--------------File.SaveAs "Server.MapPath('upload/')"& nombre
File.SaveAs "c:\inetpub\wwwroot\aspupload_prueba\upload\"& nombre&"."&File.ImageType

%>
</BODY>
</HTML>

Y como lo hago para una ruta virtual del server?

"Server.MapPath('upload/')"

Gracias por vuestra ayuda.