MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Eliminar arquivos de backups

    Compartilhe

    Careca2014
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 17/12/2014

    Eliminar arquivos de backups

    Mensagem  Careca2014 em Qua 28 Jan 2015, 10:48

    Bom dia a todos!
    Estou usando a função criada pelo mestre Avelino, para gerar o backup, tá funcionando cria os backups com data e hora de maneira que não sobrepõe, só que gostaria de manter talvez apenas os backups tipo dos últimos 2 dias e eliminar os outros, porque vai acumulando e tenho de apagar manualmente. Se alguem puder me ajudar.... desde já agradeço!



    Public Function fncbackup()
    Dim booResultado As Boolean
    Dim objws As Object
    Dim objfs As Object
    Dim strOrigem As String
    Dim strDestino As String

    On Error GoTo trataerro

    strOrigem = "c:\Maestro\Maestro_be.accdb"
    strDestino = "c:\Maestro\backup\Maestro_be" & Format(Date, "ddmmyy") & "-" & Format(Time, "hhmmss") & ".accdb"

    Set objfs = CreateObject("Scripting.FileSystemObject")
    objfs.CopyFile strOrigem, strDestino
    Set objws = CreateObject("wscript.shell")
    objws.SendKeys "a1234", True
    objws.SendKeys "{ENTER}"
    booResultado = Application.CompactRepair(strDestino, Replace(strDestino, "-", "-c"), True)

    If booResultado = True Then FileSystem.Kill strDestino
    Set objws = Nothing
    Set objfs = Nothing

    If Len(Dir(Left(strDestino, InStrRev(strDestino, "\")) & "*.log", vbArchive) & "") > 0 Then
    MsgBox "Foi detectado problemas no arquivo de backup." & vbCrLf & _
    vbCrLf & "Entre em contato imediatamente com o administrador do Banco de Dados", vbCritical, "Aviso"
    End If

    sair:
    DoCmd.Quit acQuitSaveAll
    Exit Function
    trataerro:
    MsgBox Err.Number & " - " & Err.Description, vbInformation, "Aviso"
    Resume sair
    End Function

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Eliminar arquivos de backups

    Mensagem  Alexandre Neves em Sex 30 Jan 2015, 22:44

    Boa noite,
    Precisa eliminar todos os ficheiros da pasta que tenham mais que 2 dias?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Careca2014
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 17/12/2014

    Re: Eliminar arquivos de backups

    Mensagem  Careca2014 em Sab 31 Jan 2015, 10:51

    Bom dia, deixa ver se consigo me expressar melhor, ao criar os backups, eles vao se acumulando, pois ele vai alterando o nome e acrescentando data e hora, portanto não sobrescreve o anterios, até ai achei ótimo, pra mim pois eu entro na pasta de backups e apago manualmente os que desejo.... tambem na hora de restaurar fica complicado pq são todos nomes diferentes, agora para colocar num aplicativo, que vai para o cliente seria melhor se não acumulasse tantas cópias, ou que fosse possivel escolher atraves do aplicativo

      Data/hora atual: Sab 03 Dez 2016, 04:32