Salve. Ho creato un pulsante di Backup per copiare il mio data base in una cartella diversa dal nome Backup. Mi appare errore run time 70 accesso negato

Question

il codice vba è questo

Private Sub BackupBtn_Click()

Dim Source As String

Dim Target As String

Dim A As Integer

Dim ObjFso As Object

Dim Path As String

Source = CurrentDb.Name

Path = "C:\Backup"

Target = Path & "\Gestione libri"

Target = Path & " Backup del " & Format(Now(), "dd-mm-yyyy") & ".accdb"

A = 0

Set ObjFso = CreateObject("Scripting.filesystemObject")

A = ObjFso.copyfile(Source, Target, True)

Set ObjFso = Nothing

MsgBox "Backup Completato.", vbInformation, "Backup"

Analizzando il debug mi segnala l'errore in questa riga A = ObjFso.copyfile(Source, Target, True)

Grazie per l'aiuto

Answer 1

Ciao,

soono d'accordo che la prima istruzione assegna alla variabile il seguente valore

Target ="C:\Backup"\Gestione libri".

ma la seconda lo ricopre con altro valore

Target = Path & " Backup del " & Format(Now(), "dd-mm-yyyy") & ".accdb"

Mimmo

Answer 2

Ciao,

ultimo consiglio cambia il formato della data nel file prodotto in "yyyy_mm_dd"

avrai un miglior ordinamento nella cartella di destinazione.

Mimmo

Answer 3

Ciao Mimmo

Intanto grazie per il tuo consiglio.

Ho risolto togliendo il secondo Target e riscrivendo in questo modo

Source = CurrentDb.Name

Path = "C:\Users\otbra\Documents\Otello\Backup"

Target = Path & "\Gestione libri" & Format(Now(), "dd-mm-yyyy") & ".accdb"

Grazie

Answer 4

Ciao Mimmo

Ci sono due righe perché nella prima viene indicato il nome del file di backup nella seconda la data che viene scritta dopo il nome.

La slash identifica la directory. Il risultato del primo Target è come se corrispondesse a Target ="C:\Backup"\Gestione libri". Questo errore sembra essere associato a dei permessi di copia del database ma non riesco a capire se riguarda Windows o Microsoft Office.

Answer 5

Ciao,

penso che hai qualche problema nelle seguenti istruzioni:

Source = CurrentDb.Name

Path = "C:\Backup"

Target = Path & "\Gestione libri"

Target = Path & " Backup del " & Format(Now(), "dd-mm-yyyy") & ".accdb"

Perche hai due righe per il impostare il Target?

Nella prima forse ti manca lo slash finale

Forse la seconda dovrebbe essere Target = Target & ....

Ciao Mimmo