Access - Copiar directorios

<%

' Crear una instancia del objeto FileSystemObject

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

' Ruta de origen y destino

Dim origen, destino

origen = "C:\ruta\directorio_origen"

destino = "C:\ruta\directorio_destino"

' Verificar si el directorio de origen existe

If FSO.FolderExists(origen) Then

    ' Verificar si el directorio de destino existe, si no, crearlo

    If Not FSO.FolderExists(destino) Then

        FSO.CreateFolder(destino)

    End If

    ' Obtener el objeto Folder del directorio de origen

    Set carpetaOrigen = FSO.GetFolder(origen)

    ' Copiar la carpeta y su contenido al directorio de destino

    carpetaOrigen.Copy destino

    Response.Write "Directorio copiado exitosamente."

Else

    Response.Write "El directorio de origen no existe."

End If

' Liberar los objetos

Set carpetaOrigen = Nothing

Set FSO = Nothing

%>