> Sí, es la BD donde está el boton de comando.
> ¿No funciona así?

> "Búho" <pacoQUITAE...@nemo.es> escribió en el mensaje

> ¿PRODESIO.MDB está abierto o en uso en el momento de la copia?
> --
> Saludos:
> Francisco J. García Aguado
> Web sobre Access y VBA
> http://www20.brinkster.com/accessbhuo/
> Mi Foro en las comunidades de Microsoft
> http://groups.msn.com/Access2000VisualBasic/

>   "Cheeky" <Big...@terra.es> escribió en el mensaje

>   Para intentar hacer una copia de seguridad de la BD activa, tengo

> el código de Búho:

>   Option Compare Database
>   Option Explicit

>   Function COPIAFICHERO()
>    Dim Ruta_Fichero_a_Copiar As String
>    Dim Ruta_destino As String
>    Ruta_Fichero_a_Copiar = CurrentProject.Path & "\PRODESI0.Mdb"
>    Ruta_destino = CurrentProject.Path & "\CopiaRespaldo\"
>    If Len(Dir(Ruta_destino)) = 0 Then
>     'la carpeta no existe, la creo
>     MkDir Ruta_destino
>     'Ahora copio la MDB
>     FileCopy Ruta_Fichero_a_Copiar, Ruta_destino & "PRODESI0.mdb"
>    Else
>     'la carpeta ya existe, copio el fichero
>     FileCopy Ruta_Fichero_a_Copiar, Ruta_destino & "PRODESI0.mdb"
>    End If
>   End Function

>   Y este es el código del Botón de comando:

>   Private Sub CopiaSeg_Click()
>   On Error GoTo Err_CopiaSeg_Click
>       COPIAFICHERO
>   Exit_CopiaSeg_Click:
>       Exit Sub

>   Err_CopiaSeg_Click:
>       MsgBox Err.Description
>       Resume Exit_CopiaSeg_Click

>   End Sub

>   Pero al ejecutarlo me sale el mensaje de error :
>   "Error de acceso a la ruta o al fichero"

>    ¿Qué estoy haciendo mal?

>   Saludos a todos y gracias a quien me saque de esta duda existencial...

> Gracias Búho por responder, hacer un *.bat y ejecutarlo desde la BD

> y funciona aunque la BD esté abierta.
> Pero es que quería que la carpeta destino dependiese del día del mes y así
tener 31
> carpetas diferentes (una por cada día del mes) para tener más recursos a
la hora de un
> posible error en datos o corrupción de access.
> Creo que lo intentaré siguiendo tus indicaciones de una DB "auxiliar" pero
con mi
> "capricho" de una carpeta por día.
> Ya te contaré.

> Por cierto ¿cual sería el código para que el nombre de la carpeta destino
si
> fecha()=25/11/2002 fuese "25"?
> Ruta_destino = CurrentProject.Path & "\CopiaRespaldo\"
> Ruta_destino = CurrentProject.Path & ...........................

> Una vez más gracias a los gurús del GRUPO, que con vuestras aportaciones y
respuestas
> hacéis posible el avance "lento" pero avance de los que como yo parcheamos
utilidades en
> Access sin el conocimiento teórico que vosotros generosamente aportáis.

> Si no te corre mucha prisa (Dame unas horas) te preparo un ejemplo de MDB
> para hacer copias de respaldo de otra.
> Y...siguiendo la tecnica de carpetas marcadas por días, tal como quieres.

> --
> Saludos:
> Francisco J. García Aguado
> Web sobre Access y VBA
> http://www20.brinkster.com/accessbhuo/
> Mi Foro en las comunidades de Microsoft
> http://groups.msn.com/Access2000VisualBasic/

> "Cheeky" <Big...@terra.es> escribió en el mensaje
> news:#VpQqEHlCHA.2632@tkmsftngp12...
> > Gracias Búho por responder, hacer un *.bat y ejecutarlo desde la BD
> activa, ya sé hacerlo
> > y funciona aunque la BD esté abierta.
> > Pero es que quería que la carpeta destino dependiese del día del mes y así
> tener 31
> > carpetas diferentes (una por cada día del mes) para tener más recursos a
> la hora de un
> > posible error en datos o corrupción de access.
> > Creo que lo intentaré siguiendo tus indicaciones de una DB "auxiliar" pero
> con mi
> > "capricho" de una carpeta por día.
> > Ya te contaré.

> > Por cierto ¿cual sería el código para que el nombre de la carpeta destino
> si
> > fecha()=25/11/2002 fuese "25"?
> > Ruta_destino = CurrentProject.Path & "\CopiaRespaldo\"
> > Ruta_destino = CurrentProject.Path & ...........................

> > Una vez más gracias a los gurús del GRUPO, que con vuestras aportaciones y
> respuestas
> > hacéis posible el avance "lento" pero avance de los que como yo parcheamos
> utilidades en
> > Access sin el conocimiento teórico que vosotros generosamente aportáis.

> Una pequeña correción:
> Cambia la linea:
> If Len(Dir(NombreCarpeta)) = 0 Then
> por
> If Len(Dir(NombreCarpeta, vbDirectory)) = 0 Then

> --
> Saludos:
> Francisco J. García Aguado