Dúvida de um código para Backup!

Estou tentando utilizar e entender um código usado para Backup num post desse forum, mas ainda não consegui fazê-lo funcionar totalmente:

If MsgBox(getUsuarioAtual & ", Deseja realmente fazer Backup?", vbQuestion + vbYesNo, "Sair") = vbYes Then
If getGrupoUsuarioAtual = "Administrador" Then
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "E:\" & "\Backup_SICAF_"
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\SICAF.accdr", Caminho & Format(Now, "ddmmyyyy") & ".accdr"
MsgBox "Backup realizado com sucesso!", vbInformation, "Backup"
Else
MsgBox getUsuarioAtual & " Você não tem permissão para realizar o Backup!", vbCritical, "Alerta"
Exit Sub
End If
End If

O que não entendi é em que parte eu defino o local onde a cópia do BD vai ficar! Considerando que vou utilizá-lo em um Servidor como Back-End e usar uma pasta no Servidor para Backup (BkpAplicativo)?

Não sei se compliquei muito....

Bom dia amigo,


Por favor me corrijam se cometer algum engano.

Bem, na linha abaixo é passado o caminho e o local do seu backup :

Código:

Caminho = "E:\" & "\Backup_SICAF_"

Nesta outra linha, define o nome do seu arquivo de backup:

Código:

CopiaSegura.CopyFile CurrentProject.Path & "\SICAF.accdr", Caminho & Format(Now, "ddmmyyyy") & ".accdr"

Lembrando, que esse código será acionado quando a sua aplicação for fechada, basta apenas confirmar sim.

Ia esquecendo, a função está incompleta se puder postá-la completa, tipo esse modulo getGrupoUsuarioAtual, que precisa ser salvo na sua aplicação.


Abraços,

O Backup só será feito após o fechamento completo do BD e acionado por um Botão, pois ele roda em rede para 4 usuários;

A função é:
=========
Function getGrupoUsuarioAtual() As String

getGrupoUsuarioAtual = Nz(DLookup("grupo", "Usuario", _
"login='" & strUsuarioAtual & "'"), "")

Select Case getGrupoUsuarioAtual
Case 0
getGrupoUsuarioAtual = "Administradores"
Case 1
getGrupoUsuarioAtual = "Gerentes"
Case 2
getGrupoUsuarioAtual = "Usuários"
Case Else
getGrupoUsuarioAtual = ""
End Select

End Function