[Resolvido]Salvar Banco de Dados em dois lugares com um clique

Prezados, bom dia.

Posta abaixo parte do código que tirei de um exemplo do mestre Avelino.

Trata-se de realizar um Backup do Bando de Dados e salvar em outra pasta.

Porém, esta código salva somente em uma pasta e gostaria que salvasse duas pastas pastas sendo uma no meu PC e outra no Servidor.

Como ficaria a alteração?

Segue parte do código:

Private Function fncDestinoBackup(Optional Destino As String = "local") As String
Dim strNomeBackEnd As String
Dim strDestino As String
On Error Resume Next
strDestino = Replace(Destino, "local", "C:\Users\alexandre\Desktop\clientes" & "\" & strPrefix & "Backup") 'Trocar o nome da pasta Backup caso queira
If Len(Dir(strDestino, vbDirectory) & "") = 0 Then FileSystem.MkDir (strDestino)
strNomeBackEnd = fncNomeBackEnd
strNomeBackEnd = left(strNomeBackEnd, InStrRev(strNomeBackEnd, ".accdb") - 1)
strNomeBackEnd = strNomeBackEnd & Format(Date, "dd-mm-yy") & " as " & Format(Time, "hh.mm.ss") & ".accdb"
fncDestinoBackup = strDestino & "\" & strNomeBackEnd
End Function

Faz uma nova função para salvar em outro lugar .
Ao clicar no botão chama as 2 call

Se não me engano, no formulário que contém este código de backup existe a opção para clicar e selecionar uma nova pasta. Basta fazer isso para apontar um novo caminho e fazer uma nova cópia.

Boa tarde,

crysostomo,

Consegui fazer o backup em duas pastas, uma no Servidor e outra no "C:" conforme sua instrução de criar uma nova função.

Ivan,

Realmente existe esta opção para selecionar a pasta de destino mas minha intenção era evitar o clique do mouse e fazer uma rotina automática.

Obrigado pelo retorno senhores.

Agradecemos. Estamos aí!
Sucesso

um arquivo de exemplo pode ser?