Set objFSO =Server.CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder"C:carpeta1", "C:carpeta2"
%>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Renombrar o mover una carpeta" href="http://www.tutores.org/codigo/13/" target="_blank">Renombrar o mover una carpeta</a>
<!-- Final enlace Tutores.org -->