Si puo usare l'oggetto FileSystemObject.
Ecco come spostare un file da una directory ad un'altra

<%
Dim FileObject
Set FileObject=CreateObject("Scripting.FileSystemObject")
FileObject.MoveFile "c:\dir1\nomefile", "c:\dir2\nomefile"
Set FileObject=Nothing
%>