[Resolvido]Botão para fazer backup do banco de dados

Olá a todos!
Me desculpem por criar um novo tópico sobre um assunto que já foi questionado e já resolvido aqui. Só que infelizmente ainda não foi o suficiente para meu precário entendimento.
O que desejo é criar um botão em um formulário para poder fazer o backup do meu banco de dados. Agradeço desde já a boa vontade e paciência de todos. Muito obrigado!

Eu usei esse código mas apresenta o seguinte erro:

Erro em tempo de execução '76':
caminho não localizado

Private Sub Comando125_Click()
Dim source As String
Dim destine As String
Dim fso As Variant

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

Set fso = CreateObject("Scripting.FileSystemObject")
yearstr = Year(Date)
monthstr = Month(Date)
daystr = Day(Date)
If monthstr < 10 Then
monthstr = "0" & monthstr
End If
If daystr < 10 Then
daystr = "0" & daystr
End If
destine = destine & yearstr & monthstr & daystr
fso.CopyFolder source, destine, True
Set fso = Nothing
MsgBox "O Banco de dados foi salvo"
End Sub

Amigo, recomendo este utilitario de Backup:
https://www.maximoaccess.com/t25056-backup-interativo

Mas sobre o erro que apresenta possivelmente é aqui o Erro:
source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"

Mude para:

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1.accdb"

Observe que vc deve especificar nao so a pasta de onde esta o aplicativo, mas tambem o Nome.extensao do aplicativo que pode ser nomeapp.accdb nomeapp.mdb...

Muito obrigado Fábio. Correu tudo certinho. Valeu mesmo, um grande abraço!

Boa tarde Amigo FabioPaes!


Pegando o gancho do nosso amigo, tbem to com problema
quando seleciono o local do destino ele aparece um erro no módulo (Erro de Compilação: O Tipo definido pelo usuário não foi definido)
e quando clico no backup ele começa mas dá o seguinte erro: (O Arquivo nao foi localizado!) e já troquei o nome do sistema

Erro de Referencia do VBA amigo...

So nao da pra lhe dizer qual... pq to celular. Mas e algo do tipo Microsoft office xxx...
Sendo xxx a versao office.

Office 2010 plus

desculpe to reabrindo esse topico, mais é que eu usei esse codigo e esta dando erro  em         yearstr =

variavel nao definida, alguem pode me dizer o que estou fazendo errado, usei esse codigo


Dim source As String
Dim destine As String
Dim fso As Variant

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

Set fso = CreateObject("Scripting.FileSystemObject")
yearstr = Year(Date)
monthstr = Month(Date)
daystr = Day(Date)
If monthstr < 10 Then
monthstr = "0" & monthstr
End If
If daystr < 10 Then
daystr = "0" & daystr
End If
destine = destine & yearstr & monthstr & daystr
fso.CopyFolder source, destine, True
Set fso = Nothing
MsgBox "O Banco de dados foi salvo"
End Sub

Terá que declará as variaveis envolvidas...

Como por exemplo:

yearstr
monthstr
daystr

Essas podem ser declaradas como Integer.

desculpe eu sou novo como faço para declarar as variaveis?

Aqui esta a declaração de algumas variaveis no codigo:

Dim source As String
Dim destine As String
Dim fso As Variant

De sequencia, com as faltantes:

Dim yearstr, monthstr, daystr as Integer


Ficará assim:

Código:

Dim source As String
Dim destine As String
Dim fso As Variant
Dim yearstr, monthstr, daystr as Integer

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

Set fso = CreateObject("Scripting.FileSystemObject")
yearstr = Year(Date)
monthstr = Month(Date)
daystr = Day(Date)
If monthstr < 10 Then
monthstr = "0" & monthstr
End If
If daystr < 10 Then
daystr = "0" & daystr
End If
destine = destine & yearstr & monthstr & daystr
fso.CopyFolder source, destine, True
Set fso = Nothing
MsgBox "O Banco de dados foi salvo"

Ola, por favor me corrijam se eu estiver errado mas, a linha no código apresentado neste topico, abaixo está correta?

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"


ou seria:

source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1.accdb"

nao encontra caminho

Código:

Private Sub Form_Close()
Dim source As String
Dim destine As String
Dim fso As Variant
Dim yearstr, monthstr, daystr As Integer

source = "C:\teste.accdb"
destine = "C:\backup"

Set fso = CreateObject("Scripting.FileSystemObject")
yearstr = Year(Date)
monthstr = Month(Date)
daystr = Day(Date)
If monthstr < 10 Then
monthstr = "0" & monthstr
End If
If daystr < 10 Then
daystr = "0" & daystr
End If
destine = destine & yearstr & monthstr & daystr
fso.CopyFolder source, destine, True
Set fso = Nothing
MsgBox "O Banco de dados foi salvo"

End Sub