[Resolvido]Fazer Backup

ola a todos
pessoal eu queria ver se alguém pode me ajudar numa duvida que estou tendo em fazer backup do banco de dados.
bom estou usando este código aqui:

Private Sub Comando103_Click()
On Error GoTo Err_BK_Click

NOVOBK = "C:\Documents and Settings\jeanderson\SISCAPI-SEDE.accdb _" & Format(Date, "MM_DD") & "_" & Format(Time, "hh_mm") & ".ACCDB"
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile CurrentDb.Name, NOVOBK

Exit_BK_Click:
Exit Sub

Err_BK_Click:
MsgBox Err.Description
Resume Exit_BK_Click
End Sub

Esta funcionando tudo ok. só que eu quero e que na hora que o cliente clicar no botão backup, abrir aquela opção para escolher a pasta de destino que poderá ser a pasta de backup tanto no pc ou numa pendrive.

desde já agradeço

jean

No repositório de códigos vba tem um código para abrir essa caixa. Sobre o nome do arquivo, não seria melhor incluir o ano tambem no nome? Embora as chances sejam poucas, pode acontecer de repente de coincidir o nome com algum já criado do mesmo mês e dia em anos anteriores. A não ser que a cada mês ou ano, inicie tudo do zero.

ola criquio
obrigado pela dica vou fazer isto mesmo colocar o ano para diferenciar.
mas a respeito do código tem como vc me postar ai ou onde posso baixar uma apostilha porque ja baixei duas e nao consegui.lembro tambem que nao tenho conhecimento em vba pois o que sei aprendi por conta propria e onde moro que e em portugal aqui achar uma escola onde ensina programaçao e quase igual ganhar na loteria.


obrigado

jean

Veja aqui varios, está por ordem alfabetica:

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access