Copia de seguridad en red

Les comparto mi problema espero que me puedan ayudar.

Estoy intentando crear una copia de seguridad de una base de datos en access de una empresa, la cual está en red comunicada con otras computadoras por intranet.

Coloco el siguiente código en el botón salir para que me genere una copia del archivo, sin embargo si lo corro desde mi máquina si me genera la copia pero al subirlo en la carpeta en red para que todos lo puedan abrir no me copia el archivo y me lanza una ventana diciendo "No se ha encontrado la ruta de acceso"

Private Sub salir_Click()
On Error GoTo Err_salir_Click
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Fso. CopyFile CurrentProject. FullName, Replace(CurrentProject.FullName, ".", "." & Format(Now, "wyy") & ".")
Set fso = Nothing
DoCmd.Quit

Exit_salir_Click:
Exit Sub

Err_salir_Click:
MsgBox Err.Description
Resume Exit_salir_Click

End Sub