Hola a todos, tengo una consulta, quiero hacer lo siguiente: tengo un
programa en access y quiero que cuando se cierre automaticamente copie la
base de datos con los datos (tengo 2 una con las tablas y otra con los
forms, informes, etc) a una ruta de red que yo le diga, es decir que la
copie a una direccion tipo \\puesto12\backup no se si se puede hacer con la
opcion de compactar.


BUHO
====

Hola.
Supongo que lo que deseas copiar es la mdb de los datos. Vamos a suponer que
se llama Datos.mdb
Podrías utilizar la siguiente funcion.
Function copiaRed()
Dim MiFso As Object
Dim ruta As String
     ruta = "\\puesto12\CServer\backup\"
    Set MiFso = CreateObject("Scripting.FileSystemObject")
    MiFso.CreateFolder ruta
    MiFso.CopyFile CurrentProject.Path & "\datos.mdb", ruta & "\DatosReserva.mdb"
End Function

Consideraciones.
«Puesto2» es como se debe llamar el PC en el entorno de RED de Windows. El
nombre tiene que ser exacto
«CServer» es como se llama el disco duro C, por ejemplo, en ese puesto de
red. El nombre debe ser tambien exacto.
«En este caso he considerado que la base de datos DATOS.MDB se encuentra en
la misma ruta que el proyecto. De ahi que haya puesto CurrentProject.Path»

En el codigo he creado la carpeta «backup» en el ordenador remoto. Si ya
existiera, deberías controlar ese extremo para que no se produzcan errores
de creacción de una carpeta, cuando realmente ya exista.
....
He hecho una prueba (De un XP a un 98) y me funciona bajo una red de Windows
(Xp+98)