Copiar accdb en otra carpeta
Tengo hecha una aplicación en access y estoy intentando hacer una copia de la misma en otra carpeta. He creado iun botón y puesto el siguiente código
Dim SourceFile, DestinationFile
SourceFile = "C:\A\prueba.ACCDB" '
' DestinationFile = "C:\AAA\prueba.ACCDB"
FileCopy SourceFile, DestinationFile ' Copy source to target.
Al ejecutarlo me da error de "permiso denegado"
¿Alguien podría ayuidarme a hacerlo?.
2 respuestas
Ésta solución de LWP. Willian. Tendrás que activar Microsoft Scripting Runtime
Personalmente declaro las variables antes de usarlas y veo que aquí no lo hacen.
Si las quieres declarar y no me olvido de Ninguna sería:
Dim FS As Object
Dim Origen As String, Destino As String
Y recuerda desinstanciar el Objeto al final
Set FS = Nothing
Saludos >> JTJ.
La forma de apertura de la BBDD, que sea "Compartida"
Saludos >> JTJ
¿Has probado con
Dim S As String
S = "C:\users\gonza\documents\imagenesusar\cc1.jpg"
FileCopy S, "c:\users\gonza\documents\basespracticas\pepe.jpg"
Lógicamente tienes que cambiar las rutas