[Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

Bom dia Amigos
No código abaixo copio tudo o que esta junto á minha base de dados.
Será possível copiar tudo, sem ter que descriminar (na sub) os nome das pastas e o nome dos ficheiros.

Tipo:

FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
FSO.CopyFile (sfol & "\*.accd?"), dfol

'****************************************************************

Sub CopiaTodosOsFicheiros()

Obrigado

Dim FSO
Dim sfol As String, dfol As String
sfol = CurrentProject.path
dfol = Me!CaminhoEscolhido
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not FSO.FolderExists(sfol) Then
MsgBox sfol & " Caminho Inválido.", vbInformation, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")
ElseIf Not FSO.FolderExists(dfol) Then
MsgBox dfol & " Caminho Inválido.", vbInformation, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")

Else

FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
FSO.CopyFile (sfol & "\*.accd?"), dfol
FSO.CopyFile (sfol & "\*.Bmp"), dfol
FSO.CopyFile (sfol & "\*.exe"), dfol
FSO.CopyFile (sfol & "\*.php"), dfol

End If
If Err.Number = 53 Then MsgBox "Nada Encontrado."
End Sub


Obrigado

Quero acompanhar este tópico

Olá a todos,

O simples será trocar isto tudo:

Código:

FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
FSO.CopyFile (sfol & "\*.accd?"), dfol
FSO.CopyFile (sfol & "\*.Bmp"), dfol
FSO.CopyFile (sfol & "\*.exe"), dfol
FSO.CopyFile (sfol & "\*.php"), dfol

por isto:

Código:

FSO.CopyFolder sfol, dfol

Abraço

Olá Teixeira

Copiou até mais do que eu queria.

veja a imagem que tem uma pergunta.

Obrigado e

Bom almoço

Olá Assis,

O simples será apagar esse ficheiro no destino após a cópia.
O que lhe parece?

Abraço

Teixeira

Com um kill *.laccdb

Obrigado

Olá Assis,

Sim, tem é que ajustar o caminho.

Algo assim:

Código:

kill  dfol  & "\*.laccdb"

Abraço a todos

Obrigado Teixeira

Olá Assis,

Obrigado pelo retorno, bom FDS.