[Resolvido]erro no código para backup

Boa noite!!
Estou colocando uma funcionalidade no meu bd para que todas as vezes que o usuário sair do sistema o mesmo pergunte se ele deseja realizar o backup, não sou experiente com vb portanto aproveitei alguns códigos que encontrei no fórum, acontece que quando o usuário clica na opção para realizar o backup aparece uma mensagem de erro: "caminho não encontrado". como não sou experiente no assunto peço ajuda para encontrar o erro no meu código, segue abaixo:


Private Sub bt_sair_Click()
If MsgBox("Deseja realmente sair do sistema?", vbYesNo, "Confirmação") = vbYes Then
If MsgBox("Gostaria de fazer o backup antes de sair?", vbYesNo, "ATENÇÃO...") = vbYes Then
'comando para backup
Dim source As String
Dim destine As String
Dim fso As Variant

source = "c:\access"
destine = "c:\backup\access"

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 "Backup realizado com sucesso."

Else
DoCmd.Quit

End If
End If
End Sub

o depurador sempre seleciona a seguinte linha como erro: "fso.CopyFolder source, destine, True"

Olá Tobias


Aqui:

source = "c:\access"  ' Aqui você deve colocar o caminho até a tua aplicação, inclusive o nome dela.(exemplo: C:\pasta\pasta\aplicação.mdb)
destine = "c:\backup\access" ' aqui você deve definira a pasta de destino com o nome que deseja para o arquivo de backup.

Abs

Noob

Obrigado pela ajuda, fiz as alterações no código, porém o mesmo erro continua, agora ficou assim:

source = "C:\Users\Faturamento\Google Drive\RPA - Access\RPA.accdb"
destine = "C:\Users\Faturamento\Google Drive\backup\RPA.accdb"

a linha de comando com erro é a seguinte: "fso.CopyFolder source, destine, True"

Tobias

Olá a todos,

Qual é o código e descrição do erro?

Este código está no ficheiro "C:\Users\Faturamento\Google Drive\RPA - Access\RPA.accdb" ?

Abraço

Tobias

Eu fiz uma revisão no código e vi o que ainda estava errado.
Inclusive inverti a forma que irá ser gravado o arquivo de backup.
Ele deve gravar o arquivo assim:
RPA_Dia_Mês_Ano.accdb

Para evitar erros de digitação, copie e cole todo o código abaixo.

Código:


Private Sub bt_sair_Click()
If MsgBox("Deseja realmente sair do sistema?", vbYesNo, "Confirmação") = vbYes Then
   If MsgBox("Gostaria de fazer o backup antes de sair?", vbYesNo, "ATENÇÃO...") = vbYes Then
      'comando para backup
      Dim source As String
      Dim destine As String
      Dim fso As Variant

      source = "C:\Users\Faturamento\Google Drive\RPA - Access\RPA.accdb"
      destine = "C:\Users\Faturamento\Google Drive\backup\RPA"

      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 &_& daystr &_& monthstr &_ & yearstr & ".accdb"
      fso.CopyFolder source, destine, True
      Set fso = Nothing
      MsgBox "Backup realizado com sucesso."
   Else
      DoCmd.Quit

   End If
End If
End Sub



Teste, se der erro, diga a linha, o código do erro e a descrição dele

Noob

Agora o erro foi diferente: "Erro de sintaxe"

Private Sub bt_sair_Click()
If MsgBox("Deseja realmente sair do sistema?", vbYesNo, "Confirmação") = vbYes Then
  If MsgBox("Gostaria de fazer o backup antes de sair?", vbYesNo, "ATENÇÃO...") = vbYes Then
     'comando para backup
     Dim source As String
     Dim destine As String
     Dim fso As Variant

     source = "C:\Users\Faturamento\Google Drive\RPA - Access\RPA.accdb"
     destine = "C:\Users\Faturamento\Google Drive\backup\RPA"

     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 &_& daystr &_& monthstr &_ & yearstr & ".accdb"
     fso.CopyFolder source, destine, True
     Set fso = Nothing
     MsgBox "Backup realizado com sucesso."
  Else
     DoCmd.Quit

  End If
End If
End Sub

É verdade, ainda estou dormindo   


destine = destine & "_" & daystr & "_" & monthstr & " _" & yearstr & ".accdb"

Pronto

Agora vai !

Noob

Acho que ja estou sendo chato com isso, mas esse erro persiste.

Erro em tempo de execução '76'.
Caminho não localizado.

fso.CopyFolder source, destine, True (depurador)

já verifiquei e os arquivos e pastas estão no local correto. Sera que esse erro ocorre pelo fato do banco estar aberto no momento de executar o código?

É provável

Vou fazer um teste aqui e retorno.

Noob

Tobias

Primeiro: Esse código não está legal
Segundo: Verifique se a pasta RPA - Access tem esses espaços, cuidado com isso
Terceiro: Mudei o código, veja que só deixei as frases em verde (vai ve-las quando copiar para o Access) só para ver
o que mudei, então pode tirar-las.

O backup é feito  na linha FileCopy source, destine

Você não vai conseguir copiar do mesmo programa que está aberto.

Código:



If MsgBox("Deseja realmente sair do sistema?", vbYesNo, "Confirmação") = vbYes Then
   If MsgBox("Gostaria de fazer o backup antes de sair?", vbYesNo, "ATENÇÃO...") = vbYes Then
      'comando para backup
      Dim source As String
      Dim destine As String
      Dim fso As Variant
      
      source = "C:\Users\Faturamento\Google Drive\RPA - Access\RPA.accdb"
      destine = "C:\Users\Faturamento\Google Drive\backup\RPA"
      
      '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 & "_" & daystr & "_" & monthstr & " _" & yearstr & ".mdb"
      'fso.CopyFolder source, destine, True
      'Set fso = Nothing
        FileCopy source, destine
      MsgBox "Backup realizado com sucesso."
   Else
      DoCmd.Quit

   End If
End If



Só mais duas coisas, melhor colocar o backup ao iniciar o programa e forçar o backup.
Porque ninguém vai querer fazer backup ao terminar o programa (Estão loucos pra ir embora, nesse caso,  )
Backup no mesmo pc não é backup, somente é backup quando é feito em outro local fora do pc.

Noob

Como ficamos Tobias?

Noob

Obrigado.