[Resolvido]Backup Automático no Access

Olá amigos;

Tenho o meu projeto dividido em front-end e back-end.

Arranjei um código para fazer backup automático da bd que tem as tabelas e funciona muito bem. O código consiste em a construção de um módulo com a função para o efeito. Depois, ao fechar o painel principal, na opção fechar o formulário, ao fazer clique é chamada a função. O programa fecha e a cópia é efetuada.

A cópia fica com o nome que eu dei e com a data.

O que acontece é que as cópias vão sendo criadas na pasta da base de dados nas datas em que foram criadas.

O que eu queria era que dentro da pasta, tivesse por exemplo a pasta backup, e as cópias ficavam dentro dessa pasta, separadas do resto.

Deixo abaixo o código e agradeço a quem me possa ajudar.

Obrigado

MODULO:
Public Function CreateMyBackup() As Boolean
Dim Source As String
Dim Target As String
Dim a As Integer
Dim objFSO As Object
Dim Path As String
Path = CurrentProject.Path 'get location of current folder
Source = CurrentDb.Name
Target = Path & "\BackupAutomatico "
Target = Target & Format(Now(), "dd-mm-yyyy") & ".accdb"
' create the backup
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
a = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
End Function

AO FAZER CLIQUE PARA FECHAR O PROGRAMA:
Private Sub Form_Close()
On Error Resume Next
Call CreateMyBackup
End Sub

Olá

O código já coloca o backup do banco na pasta BackupAutomatico que tem de estar junto do banco, mas falta ae uma barra invertida no final \.
Se você quiser direcionar para uma nova pasta, então dentro da pasta BackupAutomatico , terá de criar uma nova pasta de nome Backup e fica ssim;

Código:

Target = Path & "\BackupAutomatico\Backup\ "

Olá João Paulo;

A pasta onde está a base de dados é "Limasoftware".

O nome Backup Automatico refere-se ao nome do backup que fica assim: Backup Autopmático 30-10-2023.

Na pasta LimaSoftware, criei a pasta Backup que é para onde quero enviar as cópias de segurança.



Penso que agora expliquei melhor.

Obrigado pela ajuda

Código:

Public Function CreateMyBackup() As Boolean
Dim Source As String
Dim Target As String
Dim a As Integer
Dim objFSO As Object
Dim Path As String
Path = CurrentProject.Path 'get location of current folder
Source = CurrentDb.Name
Target = Path & "\Backup\"
Target = Target & "BackupAutomatico " & Format(Now(), "dd-mm-yyyy") & ".accdb"
' create the backup
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
a = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
End Function

Muito obrigado.

Obrigado pelo retorno o forum agradece.