[Resolvido]Copiar pasta

Bom dia
Tenho esta função que ma dá o localização das tabelas.


Function BackEndAtual() As String
'Retorna o back-end atualmente em uso
'pelas tabelas vinculadas.
On Error GoTo BackEndAtual_Err
Dim strCon As String

'Vou usar uma tabela vinculada qualquer, para obter
'o caminho do back-end (propriedade Connect).
strCon = CurrentDb.TableDefs("Clientes").Connect

'Agora vou retirar apenas o caminho do mdb,
'sem o ";DATABASE=" que o precede na string Connect.
BackEndAtual = right$(strCon, _
Len(strCon) - InStr(1, strCon, "=", 2))

BackEndAtual_Sai:
Exit Function

BackEndAtual_Err:
Call InformaErro("BackEndAtual")
Resume BackEndAtual_Sai
End Function


Tenho um campo num form chamado "CaminhoTabelas" que devolve o valor abaixo:
C:\User\Assis\Gestão\Tabelas\Gestão_be

Queria clikar num botão e copiar para copiar para E:\ ...

A pasta Tabelas que tem lá dentro o ficheiro "Gestão_be"

Obrigado

Talvez com um FileCopy. Dê uma pesquisada no VBA para ver se consegues

Criquio

Como fazer cópias de segurança quando o backend está noutra pasta fora do caminho do front.

Aqui por exemplo: C:\User\Assis\Gestão\Tabelas\Gestão_be

O backend "Gestão_be" está dentro da pasta "Tabelas"

Como copiar a pasta "Tabelas" que contem as tabelas do beckend.

Obrigado

Semelhante ao CopyFile, temos o CopyFolder, no qual podemos passar o caminho de origem e o caminho de destino, bem como um True ou False para designar se pastas existentes devem ou não ser sobescritas. Qualquer dúvida, pode consular por CopyFolder no VBA. Tambem pode copiar utilizando a instrução CopyFolder do objeto FileSystem, para o qual temos exemplos no fórum e tambem pode ser consultado no VBA do Access

Boa tarde

Amigos

Já consigo copiar o ficheiro desejado.
Só que agora queria ultrapassar este pequeno problema.

Quando executo a cópia se o ficheiro já lá está vem o anuncio do windows.

Já existe um ficheiro com o mesmo nome ....

- Copiar e substituir ?

- Não copiar ?

Tem como ultrapassar esta informação ?

Já tentei com - DoCmd.SetWarnings False,... mas não resultou

Obrigado

Talvez seja o caso de verificar se já existe. Existindo, exclui:

Código:

If Len(Dir("Caminho do arquivo", vbArchive)) > 0 Then
    Kill "Caminho do Arquivo"
End If

Rotina para gravar o arquivo

Obrigado Criquio

Agradecemos pelo retorno.