[Resolvido]Dificuldade rotina em rotina de backup

meus amigos ja tentei por aqui uns 6 tipo , mas não consigo fazer o backup, o codigo cria a pasta mas não fazer o backup e queria criar ele zipado com senha.
Estava fazendo backup pela extensão bat, mas não da muito segurança

Código:

ECHO OFF
CLS
ECHO APERTE ENTER
XCOPY "C:\base\teste.accdb" "C:\sisBackup"/E /Q /K /Y
PAUSE[/b]

essa essa cria a pasta mas não faz o procedimento e queria ele zipado com senha se possivel

Código:

Function BackupDireto()
'Elaborado por JPaulo 2008-03-21
Dim xs As Object
Dim PathInicial As String, PathFinal As String
PathInicial = CurrentProject.Path
PathFinal = "C:\BACKUPTESTE" 'Letra do Drive e pasta
Set xs = CreateObject("Scripting.FileSystemObject")
MkDir "C:\BACKUPTESTE"
xs.CopyFile PathInicial & "\" & "teste.accdb", PathFinal & "\" & "teste.accdb"
Set xs = Nothing
End Function

Private Sub Form_Close()
    BackupDireto
End Sub


Tópico retirado a sala de formulários e movido para a sala de Módulos e VBA por tratar-se de busca de codificação para backup.

Título do tópico alterado para melhor identificação da dúvida. Sempre descreva sua dúvida resumidamente no título do tópico. Evite "parte do meu tcc".

Veja este tópico.
https://www.maximoaccess.com/t32050-backup-interativo

fiz uma extensão .bat que zipa e coloca a senha na pasta.
Obg Damasco