Macro Copiar um arquivo TXT em uma pasta e Colar em outra pasta

Question

Olá Estou utilizando a programação abaixo mais esta dando erro oque eu estou fazendo errado ?

Essa macro é para copiar arquivos em TXT em uma pasta e colar em outra.

Sub cop()

Open "C:\Users\Cris\Desktop\Destino Subir XML.BAT" For Output As #1
        Print #1, "CD\"
        Print #1, "CD ORIGEM "
        Print #1, "Copy Destino Subir XML & " \ " & ARQUIVO.XML"
    Close #1
    Shell ("C:\Users\Cris\Desktop\Destino Subir XML.BAT")


End Sub

 

Answer 1

Olá Clobato

Se é para copiar tente o FileCopy, veja exemplo:

Sub Cop()
     FileCopy "C:\PastaOrigem\FicheiroOrigem.ext", "C:\PastaDestino\FicheiroDestino.ext"
End Sub

Abraço

Answer 2

Opa obrigado deu certo