[Resolvido]Backup não gera arquivo

Olá povo,
Olha só, estou tentando gerar um backup e uso a rotina do JPAULO,
no entanto, ele gera a pasta para backup, mas não gera o arquivo,
Eis a rotina, a linha do erro coloquei em vermelho.

' ============================================================

'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
' ============================================================

Private Sub Form_Close()
On Error Resume Next
If TxtTipoUserTab = "ADMINISTRADOR" Then
   Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.FolderExists("c:\BACKUPSisoe") Then ' verifica se já existe a pasta
   Else
       MkDir "c:\BACKUPSisoe" 'se não existir cria
   End If

   Dim CopiaSegura As Object
   Dim Caminho As String
   Dim CopiaBancoTabelas As Object
   Dim CaminhoTabelas As String
   Dim x, y, z As String

   Caminho = "c:\BACKUPSisoe\BD" 'Nome da pasta e nome de inicio para o banco de backup
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

   x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
   y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
   z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"

   If Not (Len(Dir(x, vbDirectory)) > 0) Then
       
       MsgBox (" *** x ->    " & x)   '   "Arquivo foi criado normalmente"
       
       CopiaSegura.CopyFile CurrentProject.Path & "\sistema\sisoe\BDSISOE.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
       
       MsgBox (" *** Arquivo nao foi gerado ***" & CopiaSegura)
   
   Else
   If Not (Len(Dir(y, vbDirectory)) > 0) Then
       CopiaSegura.CopyFile CurrentProject.Path & "c:\sistema\sisoe com BDSISOE.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
   Else
       Kill z
       CopiaSegura.CopyFile CurrentProject.Path & "c:\sistema\sisoe com BDSISOE.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
   End If
   End If
   Quit acQuitSaveAll
End If
End Sub


Agradeço a ajuda.

boa noite Iberlucio, de uma verificada em CobianBackup muito bom sem comentarios
abraço Nogaro !

http://www.cobiansoft.com/cobianbackup.htm

Realmente é interessante.
mas para mim é inviável, meu cliente é o governo.

Povo,
como vocês podem ver na imagem, o caminho é gerado correto,
mas não cria o arquivo, só cria o diretório: BACKUPSisoe

Ja verifique a linha "CopiaSegura", mas não encontro o erro.

CopiaSegura.CopyFile CurrentProject.Path & "\sistema\sisoe\BDSISOE.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
       .

https://www.maximoaccess.com/t25056-backup-interativo

Da uma olhada nessa forma criada pelo Avelino Sampaio.

Verifique se o nome do seu BD está escrito corretamente na rotina.

Teste ai:

On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("D:\BACKUPSisoe") Then ' verifica se já existe a pasta
Else
MkDir "C:\BACKUPSisoe" ' 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:\BACKUPSisoe\BACKUPSisoe" 'Nome da pasta e nome de inicio para o banco de backup
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\sistema\sisoe\BDSISOE.accdb", Caminho & Format(Now(), " - yyyy") & ".accdb"


Acho que o nome do BD está errado!
Qual o nome da BD?

A pasta destino ele cria normalmente, o problema é na hora de gerar p backup.


Tem como eu testar o retorno do backup?

Não entendi aquelas barras ali no nome do BD.

Qual o nome da BD?

BDSISOE.accdb é esse o nome da BD?

Se puder disponibilizar parte do bd.
Damos uma olhada!

Olha aê o arquivo...

Quanto a pergunta "Não entendi aquelas barras ali no nome do BD",
este é o caminho do BD.

"\sistema\sisoe\BDSISOE.accdb".

É preciso fechar o banco antes do Backup?

Veja:

Cria uma cópia para a unidade C:
E se você renomear um pendrive ou HD com a letra E:
O código cria uma cópia também nestas unidades.

Lembrando é da fera esse código. Rsrsrsrsr.

Ja tentei de tudo, inclusive informando a letra da unidade.

CurrentProject.Path & "c:\sistema\sisoe\BDSISOE.accdb",

Esse é o caminho do arquivo origem, o destino foi criado: Caminho = "c:\BACKUPSisoe\"

Você testou o que te mandei?

Aqui ta funfando normal.

c:\sistema\sisoe\BDSISOE.accdb.....ta errado aqui ó:
tem que tirar sistem/sisoe.


Tem que ser só assim:C:\ BDSISOE.accdb

Abra o banco que te mandei e clica no botão.
Ele vai criar o backup normal.

Ok,
Vou testar...
Não tinha percebido.

Funcionando normal.

É mano,
Tá funcionando mesmo,
Me de uma força, como ficaria a alteração para fazer o backup
meio-dia(12:00) e a tarde(18:00).

CopiaSegura.CopyFile CurrentProject.Path & "\sistema\sisoe\BDSISOE.accdb", Caminho & Format(Now(), " - yyyy") & ".accdb"

Altere para:
CopiaSegura.CopyFile CurrentProject.Path & "\sistema\sisoe\BDSISOE.accdb", Caminho & Format(Now(), " - dd/mm/yyyy") & ".accdb"

Galera,
o trem ta rodando que é uma belezura...
Obrigado a todos.


On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\BACKUPSisoe") Then ' verifica se já existe a pasta
Else
  MkDir "C:\BACKUPSisoe" ' se não existir cria
End If

wagora = Time()
whora = Left(Mid(wagora, 1, 2), 8 ) 'Seleciona as 2(duas) primeiras letras

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Caminho = "C:\BACKUPSisoe\BD" 'Nome da pasta e nome de inicio para o banco de backup
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\BDSISOE.accdb", Caminho & Format(Now(), "yyyymmdd") & whora & ".accdb"

MsgBox (" O backup ( :C ) foi gerado ->    " & Caminho)   '   "Arquivo foi criado normalmente"
 
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("F:\BACKUPSisoe") Then ' verifica se já existe a pasta
Else
  MkDir "F:\BACKUPSisoe" ' se não existir cria
End If

Caminho = "F:\BACKUPSisoe\BD" 'Nome da pasta e nome de inicio para o banco de backup
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\BDSISOE.accdb", Caminho & Format(Now(), "-ddmmyyyy") & whora & ".accdb"

MsgBox (" O backup ( :F ) foi gerado ->    " & Caminho)   '   "Arquivo foi criado normalmente"

Obrigado a todos.
Resolvido conforme mensagem anterior.

O fórum agradece, e que bom que resolveu!
Abraço.