[Resolvido]Help com o backup

Maltinha,

Necessito da Vossa ajuda com o seguinte:


Tenho este código:

Private Sub btIniciarBackup_Click()
Dim objfs As Object
Set objfs = CreateObject("Scripting.FileSystemObject")
objfs.CopyFile "D:\DataGalenica\DG24tW80060024.accdb", "D:\DataGalenicaBck\Bk\DG24tW80060024bck.accdb"


Como fazer que grave o backup com a data do dia tipo "DW_10022017.ACCDB" e Amanhã "DW_11022017.ACCDB" e assim sucessivamente?

Obrigado

Olá,
Use o format onde que colocar a data:

Código:

Format(date(),"ddmmyyyy")

Abraço

Obrigado .

Será então:

Private Sub btIniciarBackup_Click()
Dim objfs As Object
Set objfs = CreateObject("Scripting.FileSystemObject")

objfs.CopyFile "C:\DG\DG24tW80060024.accdb", "D:\DGBck\Bk\Format(date(),"ddmmyyyy").accdb"

Mais uma vez, obrigado pela ajuda.

Dessa forma não vai funcionar e você vai voltar com a mesma duvida;

Código:

objfs.CopyFile "C:\DG\DG24tW80060024.accdb", "D:\DGBck\Bk\DW_" & Format(Date, "ddmmyyyy") & ".accdb"

Obrigado JPaulo.
Vou tratar disso.

JPaulo,

Funcionou na perfeição

Obrigado mais uma vez

Agora surgiu outra duvida. Ao fim de algum tempo, o disco vai ficando cheio. será que dá para escrever um código que apague os backups com mais de um mês?

Abraço

Use esta função;

Para chamar a função, por exemplo no click de um botão;

Código:

Call DeletaFicheirosMais1Mes

Código:

Public Function DeletaFicheirosMais1Mes()
'© JPaulo www.maximoaccess.com
'2017-Fev-14
 Dim strMeusFicheiros As String
 Dim strCaminho As String
 'caminho dos seus ficheiros
 strCaminho = "D:\DGBck\Bk\"
 'extensão dos seus ficheiros
 strMeusFicheiros = Dir(strCaminho & "*.accdb")
 
 Do While Len(strMeusFicheiros) > 0
  'se a data de criação for maior que 30 dias, deleta
  If FileDateTime(strCaminho & strMeusFicheiros) < (Date - 30) Then
    Kill strCaminho & strMeusFicheiros
  End If
  strMeusFicheiros = Dir
 Loop
End Function

Olá a todos,
JPaulo, está Top, parabéns pela simplicidade.
Isto só demonstra o que digo várias vezes.
"Existe várias formas de atingir o mesmo objectivo"

Ficamos aguardar retorno do colega.

Grande J Paulo!

Vou já incorporar.

Obrigado!

Amigos

Realmente o código é ótimo!

Mas, tenho um pergunta para vocês:

Vão gravar no próprio computador?

E se, como se diz aqui no BR "der pau", no computador,

onde estará o backup para recuperar os dados?

Backup quer dizer: Cópia de segurança e se for

feito no próprio computador, não existe segurança alguma.

Portanto, backup ou cópia de segurança se grava em dispositivo

externo ao computador.

Curiosidade: Tem empresas que mandam o funcionário responsável

pelo backup levar eles pra casa.

[ ]'s

Olá a todos,
Amigo Noob isso é outra questão e concordo a 100%.

Para essa situação sou da opinião de fazer a copia para uma determinada pasta, pode ser c:\Backups
E sincronizar essa pasta na nuvem.
Não falta fornecedores gratuitos:
OneDrive, Google Drive, Mega, pCloud, Meocloud, hubic,dropbox, ....
Não há desculpa.

Outra alternativa, via FTP após backup.
Abraço

Que tal um Pendrive?



[ ]'s

Olá, será o simples para falha da unidade local.
Qualquer dispositivo tradicional de backup é válido.
No entanto , copias de segurança é para levar a sério.
Podem roubar pc, dispositivos amoviveis, inundação até incendio.
Então como o amigo referiu alguns responsáveis são obrigados a ter backups deslocados geograficamente.
Hoje com a cloud, tudo fica mais simples.
Claro que se levanta outra questão...
Perdemos o controle onde e quem acede à informação na nuvem.
Para isso usar ficheiros encriptados.

Saudável este tipo de papo.
Abraço a todos e bons backups.

Concordo plenamente Alvaro.

Era exatamente em colocar em locais grátis, que é o meu temor.

Esses tipos de locais gratuitos podem sumir sem aviso e lá se foi

nossa cópia de segurança.

Prefiro algo palpável, sabendo onde está.

Grande abraço a todos.

Noobezinho,

Obrigado pela preocupação / sugestão.

Na verdade, eu faço backup no mesmo pc e também num disco externo.

Aqui, tenho apenas a versão simplificada para testes (na versão a real, tenho mesmo de corrigir o código pois devo ter me enganado no caminho).

Abraço

Compreendo Pedro

Eu também faço isso.

No próprio computador, para algum problema que tenha dado de momento.

E num pendrive, mais fácil de carregar, e cópias acumulativas.

Ex.: NomeBE_dd_mm_aaa.

E uma rotina, para apagar os mais antigos e assim evitar de lotar o pendrive.

[ ]'s

Vou tentar incorporar no botão de backup

Private Sub btIniciarBackup_Click()
Dim objfs As Object
Set objfs = CreateObject("Scripting.FileSystemObject")

objfs.CopyFile "c:\DataGalenica\DG24tW80060024.accdb", "c:\DataGalenica\DG_" & Format(Date, "ddmmyyyy") & ".accdb"

'© JPaulo www.maximoaccess.com
'2017-Fev-14
Dim strMeusFicheiros As String
Dim strCaminho As String
'caminho dos seus ficheiros
strCaminho = "c:\DataGalenica\"
'extensão dos seus ficheiros
strMeusFicheiros = Dir(strCaminho & "*.accdb")

Do While Len(strMeusFicheiros) > 0
'se a data de criação for maior que 30 dias, deleta
If FileDateTime(strCaminho & strMeusFicheiros) < (Date - 30) Then
Kill strCaminho & strMeusFicheiros
End If
strMeusFicheiros = Dir
Loop


End Sub

Ótimo, amigo!

Valeu pelo retorno!

Boa sorte !

Na versão final ficou assim:

Private Sub btIniciarBackup_Click()
Dim objfs As Object
Set objfs = CreateObject("Scripting.FileSystemObject")

'faz backup no disco do pc noutra pasta
objfs.CopyFile "D:\DataGalenica\DG24tW80060024.accdb", "D:\DataGalenicaBck\Bk\DG24tW80060024bck.accdb"

'faz Backup no disco externo com a data incluída no nome
objfs.CopyFile "D:\DataGalenica\DG24tW80060024.accdb", "F:\DataGalenicaBck\Bk\DG_" & Format(Date, "ddmmyyyy") & ".accdb"

'apagar backups com mais de um mês para libertar espaço no disco externo

'© JPaulo www.maximoaccess.com
'2017-Fev-14
Dim strMeusFicheiros As String
Dim strCaminho As String
'caminho dos seus ficheiros
strCaminho = "F:\DataGalenicaBck\Bk\"
'extensão dos seus ficheiros
strMeusFicheiros = Dir(strCaminho & "*.accdb")

Do While Len(strMeusFicheiros) > 0
'se a data de criação for maior que 30 dias, deleta
If FileDateTime(strCaminho & strMeusFicheiros) < (Date - 30) Then
Kill strCaminho & strMeusFicheiros
End If
strMeusFicheiros = Dir
Loop


End Sub


Mais uma vez obrigado pela ajuda.

Abraço

Olá a todos,
Pedro, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço