[Resolvido]Fazer Backup do Back End, Direto do Front End, é possível ?

Senhores Venho Pedir A ajuda de vcs novamente,
Vamos la, é possivel fazer o Bacup do Back End, atraves do Front End, ou seja, eu estou com o Front end, Aberto Porem no Back End, não tenha mais nada alem das tabelas...então imagino que o Codigo para Fazer uma Copia do Back End, deva partir do Front End...

Obrigado aos Amigos.....

Ja Procurei no Busca e Não Localizei a Solução !
Neste Topico ficou Resolvido porem não sabemos qual foi a solução !!!!!

http://maximoaccess.forumeiros.com/t2106-resolvidobackup-de-back-end?highlight=backup+de+back+End

Obrigado !

Nesse mesmo link que você passou, tem um link postado pelo Vieira que leva ao Repositório de Códigos VBA, aonde tem o código que o criador do tópico desse link utilizou para resolver:
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Ok Criquio Desculpe a todos, verdade o Codigo é do Jpaulo......
Seria este codigo !
--------------------------------------------
Backup directo do Banco e Correspondentes

Ative a referencia:
Microsoft Scripting Runtime

Function BackupDireto()
'Elaborado por JPaulo 2008-03-21
Dim xs As Object
Dim PathInicial As String, PathFinal As String
PathInicial = CurrentProject.Path
PathFinal = "C:\NovaPasta" 'Letra do Drive e pasta
Set xs = CreateObject("Scripting.FileSystemObject")
MkDir "C:\NovaPasta"
xs.CopyFile PathInicial & "\" & "MeuBanco.mdb", PathFinal & "\" &"MeuBanco.mdb"
xs.CopyFile PathInicial & "\" & "MeuIcon.ico", PathFinal & "\" & "Icon.ico"
xs.CopyFile PathInicial & "\" & "MeuLogotipo.jpeg", PathFinal & "\" & "Logotipo.jpeg"
xs.CopyFile PathInicial & "\" & "MeuFundo.bmp", PathFinal & "\" & "Fundo.bmp"
Set xs = Nothing
End Function
--------------------------------------------

Obrigado e Novamente Peço Desculpas....Caso outra Pessoa Procure por este assunto Vai encontrar o codigo Agora !!!Abraço !!!!

Grato pelo retorno. O fórum agradece.