Come effettuare il Backup da codice VBA (Access)

La subroutine che segue, permette di salvare da codice VBA il file di Access con cui si sta lavorando.

Private Sub Esegui_Backup(ByVal Percorso As String, ByVal NomeDB As String)
Dim gestione As Object

On Error GoTo erore_Esegui_Backup

Set gestione = CreateObject(“Scripting.FileSystemObject”)

inizio:

varReturn = SysCmd(acSysCmdInitMeter, “Backup in corso…”, 4)

c = 0
‘<<Se il drive (C:\, D:\, E:\) è presente e pronto (l’ho fatto per le pen drive in sostanza)>>
If gestione.DriveExists(CStr(Mid(Percorso, 1, 2))) = True Then
‘<<Se il percorso in cui vuoi fare il backup non esiste>>
If gestione.FolderExists(Percorso) = False Then
c = 1
‘<<crea quel percorso e quindi in sostanza la cartella>>
gestione.CreateFolder (Percorso)
End If
Else
‘<<Gestione dell’errore del drive>>
If MsgBox(“Il drive ‘” & CStr(Mid(Percorso, 1, 2)) & “‘ è disattivato!” & Chr(13) & “Scegliere l’operazione da eseguire!”, vbExclamation + vbRetryCancel, “Backup”) = vbRetry Then
GoTo inizio
Else
Exit Sub
End If
End If

varReturn = SysCmd(acSysCmdUpdateMeter, 1)

‘<<Se non hai creato la cartella del percorso(c=0) e al suo interno è presente il tuo database(se quindi già hai fatto precedenti backup)>>
If c = 0 And gestione.FileExists(Percorso & NomeDB) Then
‘<<Cancella il file del vekkio db>>
gestione.DeleteFile (Percorso & NomeDB)
End If

varReturn = SysCmd(acSysCmdUpdateMeter, 2)

‘<<Copia il nuovo file del db aggiornato>>
gestione.CopyFile CurrentProject.Path & “\” & NomeDB, Percorso & “\” & NomeDB & ” ” & Date & ” ” & Time, True

varReturn = SysCmd(acSysCmdUpdateMeter, 3)

Set gestione = Nothing

varReturn = SysCmd(acSysCmdSetStatus, “Backup terminato.”)

MsgBox “Backup terminato con successo!”, vbInformation

Exit Sub

erore_Esegui_Backup:
MsgBox “Errore di backup!” & Chr(13) & “L’operazione verrà interrotta e il programma si chiuderà correttamente!”, vbCritical, “Backup”
MsgBox Err.Description
‘resume next

‘1)”percorso_radice_della_cartella_del_db” è la cartella contenete il db su cui si lavora
‘2) il parametro ‘percorso’ è la cartella dove vuoi che il programma faccia il backup

End Sub

Annunci