Holap
Yo lo hago así;
Código:
Dim directorio As Directory
DirectorioActual = Server.MapPath("Directorio")
'Compruebo si existe el directorio del curso
Dim Existe As Boolean = Directory.Exists(DirectorioActual)
If Not Existe Then
directorio.CreateDirectory(DirectorioActual) 'Creo el directorio
si no existe
else
directorio.Move (DirectorioActual,DirectorioDestino)
End If
Dónde DirectorioDestino es la ruta díonde voy a mover el directorio Actual .
Prueba con esto a ver si así te funciona.
A mi me va perfectamente.
Suerte.
Salu2