[Resolvido] Ferramenta para Backup

[miutinhu 0]

Eu estou usando isso para fazer o backup

 

FileCopy "..\pasta\db_lu.mdb", "C:\Documents and Settings\milton salles\Desktop\Nova pasta (2)\backup.mdb"

 

mas eu gostaria de dar a opção do usuário escolher onde salvar o arquivo, como eu faço isso ?!

e se não for possivel, quando eu uso essa comando, eu não estou substituindo o antigo, se ele ve que existe, ele deixa o antigo lá, se for pra deixar desse jeito, eu gostaria que substituísse, como eu faço !?

[scorpio 7]

Utilize a CommonDialog.

[Rogério Orlando 0]

Substitua o destino por uma variável e está variável tem o retorno do texto de um textbox, assim ele poderá alterar o caminho se achar necessário:

 

 

destino = Text1.text ' sendo o texto digitado = ao destino pré definido (C:\Documents and Settings\milton salles\Desktop\Nova pasta (2)\backup.mdb)

 

 

FileCopy "..\pasta\db_lu.mdb", "Destino"

[miutinhu 0]

Muito Obrigado, deu certo :D

obrigado gente... Mesmo

e desculpem a demora do retorno, mas é a correria

[Rogério Orlando 0]

Conte conosco, pois o conhecimento não ocupa espaço e com certeza deve ser, pelo menos em foruns, compartilhado com os usuários.

[miutinhu 0]

Vocês me Ajudaram, vou mostrar exatamente o que eu fiz!

tentei usar commondialog.showsave

mas não sei como usa-lo

então desisti

-

coloquei um DIRLISTBOX

Um TEXTBOX.VISIBLE=FALSE

e um CMD

_

o código ficou assim

 

Text1.Text = Dir1.Path
caminho = Text1.Text & "\backup.mdb"
FileCopy "L:\db_Luv.mdb", caminho
MsgBox "Backup Realizado Com Sucesso!", vbInformation + vbOKOnly, "Backup Realizado"
Unload Me

[Jefferson Saavedra 0]

Fica a sugestão de compactar antes o banco de dados antes de fazer backup usando as dll's azip32.dll e aunzip32.dll