Srs,

 

Alguem pode me informar como copiar todos os arquivos de uma determinada pasta para uma outra dentro do Access. Ja tentei encontrar as funções copy copyfolder mas no access não tem e não sei a biblioteca que elas encontrar. A Unica que encontrei no Access é a Filecopy mas não me atende pois não sei os arquivos que serão colocados nesta pasta.

 

Grato

3 dicas colega:

 

1) Para usar o copyfolder vc tem quem referenciar a biblioteca Microsoft Scripting Runtime. Crie um objeto tipo Scripting.FileSystemObject, inicialize-o e use a função. Exemplo:

 

Dim obj As Scripting.FileSystemObject

Set obj = New Scripting.FileSystemObject

obj.CopyFolder "c:|pasta_origem", "c:|pasta_destino"

 

obs.: Não lembro agora mas para adicionar a biblioteca veja se consegue indo no menu "Ferramentas...referencias"

 

2) Método "grosseiro" mas funciona:

 

Open "c:copiar.bat" For Output As #1
texto = "copy c:pasta_origem c:destino"
Print #1, texto
Close #1

Shell "c:copiar.bat"

 

kill "c:copiar.bat"

 

3) Segue dica do site:

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2330&Classificacao=

 

Obrigado meu amigo,

 

Funcionou, consegui adicionar pela referencias no menu.

 

Um abraço