MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]backup de segurança no pendrive

    Compartilhe

    PAULO DE TARSO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/03/2016

    [Resolvido]backup de segurança no pendrive

    Mensagem  PAULO DE TARSO em 12/6/2018, 16:15

    Bom dia,

    Mês passado tive um problema no meu notebook e acabou deletando meu programa, pra haver mais segurança no backup queria salvar ele no pendrive, mais não está dando certo, poderiam me ajudar? segue abaixo o código que estou utilizando:


    source = "C:\Usuários\vinícius\Documentos\Contas Orçamento Residencial.mdb\"
    destine = "E:\BACKUPORCAMENTO\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr & ".mdb"
    fso.CopyFile source, destine, True
    Set fso = Nothing
    MsgBox "Backup realizado com sucesso!!!"
    End Sub
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]backup de segurança no pendrive

    Mensagem  CassioFabre em 12/6/2018, 18:18

    Boa tarde,

    Usei este código baseado no seu e funcionou perfeitamente. As alterações que fiz foram apenas para automatização de nome, nada impactante no seu código:
    Código:
        Dim s
        Dim yearstr, monthstr, daystr, source As String
       
        s = Split(CurrentProject.Name, ".")
        source = CurrentProject.Path & "\" & CurrentProject.Name
        destine = "S:\temp\"
       
        Set fso = CreateObject("Scripting.FileSystemObject")
       
        yearstr = Year(Date)
        monthstr = Month(Date)
        daystr = Day(Date)
       
        If monthstr < 10 Then monthstr = "0" & monthstr
        If daystr < 10 Then daystr = "0" & daystr
       
        destine = destine & yearstr & monthstr & daystr & "." & s(1)
        fso.CopyFile source, destine, True
        Set fso = Nothing
       
        MsgBox "Backup realizado com sucesso!!!"

    Criei uma pasta temporária no drive externo "S" e funcionou ok. Teste aí e veja se dá certo.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 252
    Registrado : 05/03/2017

    Re: [Resolvido]backup de segurança no pendrive

    Mensagem  fazerbem em 13/6/2018, 13:18

    Obrigado tb, pois serviu tb para mim, , apenas copiei como o nome do arquivo e copiei no mesmo codigo tb pra uma pasta Backup de C:

    Andre
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    backup de segurança no pendrive

    Mensagem  toyebom em 13/6/2018, 19:06

    Se resolveu não esqueças de dar o Resolvido ai no fundo


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    PAULO DE TARSO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/03/2016

    backup de segurança no pendrive

    Mensagem  PAULO DE TARSO em 13/6/2018, 23:28

    MUITO OBRIGADO, DESDE JÁ, FICOU SHOW DE BOLA!!!!AGORA MEU SISTEMA ESTÁ SEGURO.

      Data/hora atual: 19/10/2018, 13:12