¿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 news:eyNgzIClCHA.1872@tkmsftngp10...
  Para intentar hacer una copia de seguridad de la BD activa, tengo definido un Módulo con 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...