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

    Apagar arquivos da pasta via VBA

    Compartilhe

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 20/09/2012

    Apagar arquivos da pasta via VBA

    Mensagem  ewertonms em 2/7/2015, 19:16

    Olá pessoal tenho uma dúvida, encontrei um código que apaga arquivos de uma pasta, quero usar isso para o código de backup automático que uso em meu BD, fiz alguns testes e funcionou normalmente, ele apaga td na pasta e logo após cria o arquivo de backup, eu faço backup 2x na semana uma na segunda e na quarta, que são os dias com mais entradas de dados no banco, porém eu gostaria de manter as 2 últimas cópias do BD, e não sei como fazer o arquivo que apaga deixar apenas o arquivo mais recente antes de criar a nova cópia, se puderem me ajudar deixo o código que apaga os arquivos abaixo:

    Código:

    Sub modClearFolder(Caminho As String, Ext As String)
     
        'Rotina para excluir arquivos de um diretório qualquer
        Do Until Dir(Caminho & "\*." & Ext) = ""
            VBA.Kill (Caminho & "\*." & Ext) 'Excluir arquivo com a extensão escolhida
        Loop
     
    End Sub


    Código:

    Function BackupBD()
    'elaborado por: JPaulo - 11/10/2006
    'alterado por: Ewerton Mendes - 02/07/2015

    Dim CopiaSegura As Object
    Dim Caminho As String

    Caminho = "\\Servidor\c\ISMO\backup\manutencao\" & CurrentProject.Name 'Nome da pasta e nome de inicio para o banco de backup

    'Determina o dia da semana em que o backup é feito
        If Weekday(Now) = 2 or  Weekday(Now) = 4 Then

    'apaga backups anteriores
        Call modClearFolder("\\Servidor\c\ISMO\backup\manutencao", "mdb")
      
    'cria o objeto CopiaSegura
        Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

    'Executa o comando de backup do BD
        CopiaSegura.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, Caminho & Format(Now(), "_ddmmyyyy") & ".mdb"

        End If
    End Function

      Data/hora atual: 9/12/2016, 11:28