Weno, al final no me servia del todo esto, ya que si la carpeta que quieres mover ya existe en el destino da un error, asi que finalmente lo que he hecho ha sido mover los ficheros que hay dentro de la carpeta. Otra posibilidad sería borrar previamente la que ya existe, pero en mi caso tengo que conservarla, ya que dentro habrá ficheros que hacen falta para otras cosas. Os dejo el código ya acabado por si a alguien le viene bien ;)
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("d:\datos\intranetweb\tmp\origen\prueba.htm") Then
filesys.MoveFile "d:\datos\intranetweb\tmp\origen\prueba.htm", "d:\datos\intranetweb\tmp\destino\"
End If
dim filesys2
set filesys2=CreateObject("Scripting.FileSystemObject")
If filesys2.FolderExists("d:\datos\intranetweb\tmp\origen\images\") Then
filesys2.MoveFile "d:\datos\intranetweb\tmp\origen\images\prueba*", "d:\datos\intranetweb\tmp\destino\images\"
End If
%>