Boa noite,
Encontrei aqui no Forum este exemplo que se aplica perfeitamente ao que preciso, e funcionou maravilhosamente no Access 2007.
Porém gostaria de saber como posso alterar este procedimento que foi elaborado pelo nosso amigo JPAULO em 2006, para que eu pudesse ter mais de uma copia de backup, ou seja, manter o backup anterior, porque desta forma o procedimento apaga o anterior e grava o atual. Não sei se é possivel pelo menos manter sempre as 3 ultimas versões de backup, até para não sobrecarregar a máquina.
Private Sub Form_Close()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.
On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("c:\Backup Condominio") Then ' verifica se já existe a pasta
Else
MkDir "c:\Backup Condominio" ' se não existir cria
End If
Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Caminho = "c:\Backup Condominio\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
Quit acQuitSaveAll
End Sub
muito obrigada
Stella Maris