[Resolvido]backup de segurança no pendrive

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

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.

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

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

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