30/03/2006, 08:12
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 16
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| Renombrar imagenes
El código que estoy utilizandome da errores, no consigo hacerlo funcionar correctamente.
Alguien me podria decir donde está el error en este código???
vref=Upload.Form("ref")
Set fso = CreateObject("Scripting.FileSystemObject")
nombreanterior = "../images/fotos" & File1.Filename
nombrenuevo = vref & nombreanterior
Set Fich = FSO.GetFile(Server.MapPath("../images/fotos" & nombreanterior))
Call Fich.Copy(Server.MapPath("../images/fotos" & nombrenuevo))
Set Fich = Nothing
Set FSO = Nothing |