Mover archivos

La función que he creado para realizar la copia de un archivo a otra carpeta dentro del sitio es así:
function Move_File(archivoOrigen, archivoDestino) Dim PathOrigen, PathDestino, fs, extension 'Obtener el path en donde se encuentan los archivos PathOrigen = Server.MapPath("\files") 'Obtener el path destino donde se dejara el archivo PathDestino = Server.MapPath("\images") set fs = createobject("scripting.filesystemobject") 'Verificar que el archivo existe e el path If (fs.FileExists(PathOrigen & "\" & archivoOrigen))=true Then 'Obtener la extension del archivo Origen extension = fs.GetExtensionName(PathOrigen & "\" & archivoOrigen) if (fs.FileExists(PathDestino & "\" & archivoOrigen & "." & extension))=true Then 'Mover el archivo al destino fs.movefile PathOrigen & "\" & archivoOrigen , PathDestino & "\" & archivoDestino & "." & extension else response.write("ERROR EL ARCHIVO DESTINO YA EXISTE") end if else response.write("ERROR EL ARCHIVO ORIGEN NO EXISTE") end if end function
Se utiliza así:
Move_File "foto.jpg","nuevafoto"