Nuevamente Gracias X responder
Lo he estado Probando el archivo es copiado con el nuevo nombre, pero me da un error al intentar borrar el antiguo
te dejo aqui la funcion que se encarga de aquello haber si puedes ayudarme
Cita: function Renombra_archivo(original,nuevo)
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject ")
'realizamos la copia del archivo
inicial=original
nuevo_arch=server.mappath("../visor/imagenes/"&nuevo)
response.Write("<br>Original: "&original&"<br>Nuevo: "&nuevo_arch&"<br>")
fs.CopyFile inicial,nuevo_arch
'hasta aqui todo bien es en la siguiente linea en que me da el error
'al mostrar la variable inicial en pantalla me muestra la ruta del archivo
fs.delete inicial
set fs=nothing
end function