MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Excluir backups antigos

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    [Resolvido]Excluir backups antigos Empty [Resolvido]Excluir backups antigos

    Mensagem  NADIRONUNES 20/3/2021, 13:15

    pesquisando na web achei esse codigo pra excluir backup antigo
    Código:
    On Error Resume Next
        Dim DataInicial As Date, DataFinal As Date
        Dim CONTADOR As Long
        CONTADOR = 0
        Dim ArquivoDel As String
        DataInicial = Data1
        DataFinal = Data2
        Do While DataInicial <= DataFinal
            ArquivoDel = SeparaArquivo(CurrentDb.Name, False) & "Db_Agro.fdb_" & IIf(Day(DataInicial) > 9, Day(DataInicial), "-" & Day(DataInicial)) & IIf(Month(DataInicial) > 9, Month(DataInicial), "-" & Month(DataInicial)) & Year(DataInicial) & ".zip"
            Kill (ArquivoDel)
            If Err.Number > 0 Then
                MsgBox Err.Description
                Err.Clear
            Else
                CONTADOR = CONTADOR + 1
            End If
            DataInicial = DataInicial + 1
        Loop
        MsgBox "Foram excluídos " & CONTADOR & " arquivos de backup!", vbInformation


    so que nao consigo escluir meus backup antigos, tipo quero excluir  os backup com 40 dias

    Db_Agro.fdb_20-03-2021.zip
    Db_Agro.fdb_17-03-2021.zip
    Db_Agro.fdb_18-03-2020.zip
    Db_Agro.fdb_02-03-2020.zip
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Excluir backups antigos Empty Re: [Resolvido]Excluir backups antigos

    Mensagem  Noobezinho 21/3/2021, 13:37

    Nadiro

    Aqui está o que uso:

    Num módulo básico cole as duas  funções

    Código:
    Public Function DeletaBkpAntigos()
    'Deleta os backups antigos da pasta backups
    Call DelFile(Application.CurrentProject.path & "\backup\")
    'Deleta os backups antigos da Pendrive
    ' Penso assim, backup no mesmo computador, não é backup, computador pode-se perder tudo.
    'Caso tenha interesse  em gravar em pendrive, avise que eu disponibilizo a função abaixo.
    'Call DelFile(DriveUSB)
    End Function

    Código:
    Function DelFile(caminho As String)
    'deleta os backups de 10 dias atrás
    Dim arq As String, sData As String, dData As Date
    arq = Dir(caminho, vbArchive)
    Do While arq <> ""
          If left$(arq, 5) = "SisDB" Then  'Onde está SisDB, coloque o nome do Back End sem a extensão, conte o número de letras e coloque no lugar do 5
            sData = Mid$(arq, 6, 6)
            dData = CDate(left$(sData, 2) & "/" & Mid$(sData, 3, 2) & "/" & Mid$(sData, 5, 2))
            If DateDiff("d", Date, dData) < (-10) Then   '<<< onde coloca os dias a apagar, no caso (-10)
               Kill caminho & arq
            End If
          End If
       arq = Dir
    Loop
    End Function

    Terá que fazer alguns ajustes.

    { }'

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Excluir backups antigos Empty Re: [Resolvido]Excluir backups antigos

    Mensagem  Noobezinho 21/3/2021, 14:05

    Nadiro

    Rápido no gatilho, heim? Razz Laughing Laughing

    ótimo!

    Boa sorte

    Balem

    Obs, apaquei tua última mensagem, acidentalmente.

    Se quiser repeti-la, agradeço.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Excluir backups antigos Empty Re: [Resolvido]Excluir backups antigos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 10:10