[Resolvido]Transferir Arquivo por Parametros

tenho uma duvida que para vocês deve ser bem simples.

necessito transferir um arquivo de uma pasta para outras em VBA.

só que ao invés de colocar o caminho na programação eu gostaria de colocar o que costa em um campo texto.


FileCopy "C:\windows\desktop\Leiame.txt", "C:\Diversos\Leiame.txt" ( Funciona )

FileCopy me.CampoCaminhoOrigem.txt, me.CampoCaminhoDestino.txt ( assim não Funciona )


o por que quando referencia um campo não funciona ? voce teria outra ideia ?

Bem vindo Ao Forum!
Antes de Postar sua duvida de uma pesquisada aqui no FOrum, pois existem muito material aqui meu amigo...

Veja esse Topico aqui:
https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos

muito obrigado pela dica FabioPaes,

porem este tópico que você me indico eu já vi, na verdade já estou a 3 dias pesquisando sobre este assunto e não estou achando uma solução.

Mas como, eu testei aqui e deu certinho amigo...


Dim fso
Dim file As String, sfol As String, dfol As String
file = Me.CampoOrigem ' Caminho Origem

dfol =Me.CampoDestino ' caminho destino
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol & file) Then
fso.CopyFile (file), dfol, True
Else
MsgBox file & " Inexistente!", vbExclamation, "Sucesso"
End If

Crie duas caixas de Texto (CampoDestino e CampoOrigem)como Nome delas...
No Botão coloque o comando à cima e teste...

Olá a todos, dois pitacos

Alex, na questão que colocou na mensagem nº 1 , acho que deve retirar o .txt

Teste assim:

Código:

FileCopy me.CampoCaminhoOrigem, me.CampoCaminhoDestino

Se pretende mover o ficheiro da origem para o destino ou renomear, pode usar o NAME nativo do Access
Sendo assim:

Código:

Name me.CampoCaminhoOrigem AS me.CampoCaminhoDestino

Abraço

o pessoal eu consegui unindo a ideia de vocês eu utilizei assim.

Dim strOrigem As String
Dim strDestino As String

strOrigem = Me.Chave_Origem
strDestino = Me.Chave_Destino


FileCopy strOrigem, strDestino

funciono perfeitamente, sou um amante do access,porem ainda sei muito pouco.

muio obrigado !

Olá Alex, fico feliz por ajudar !
Obrigado pelo retorno, os utilizadores do fórum agradecem.

Não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

pessoal me desculpe por não ter encerrados os tópicos antes, nem tinha notado mas a partir de agora estarei sempre encerrando ok.