meglio così
codice:
<%
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

call fso.MoveFile( Server.MapPath("cart1/prova.txt") , Server.MapPath("cart2/prova.txt"))

%>