DirMove

<%
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFolder "d:\vb" , "d:\VisualBasic"
%>