[Resolvido]Preciso Juntar dois arquivos TXT

Boa Tarde,

Preciso juntar 2 arquivo .txt  sendo que cada arquivos esta em um diretório especifico, e salvar em um terceiro lugar.

Exemplo

C:/01.txt --- (primeiro arquivo)

C:/01.txt ---- (Segundo Arquivo)

z:/01.txt ---- (Junção do arquivo 1 com arquivo 2)


Fui um modelo usando Bat, porém Não consegui salvar. Agora estou tentando em VBA mais não consigo.

Desculpa minha burrice esta area.


Modelo em .bat que estava tentando.


Copy C:/01.txt + d:/01.txt


Agradeço a ajuda

Olá Caio, Bem-vindo ao MaximoAccess.

Tente assim, com estas duas linhas de comando, pode ser em BAT

Código:

Type C:\01.txt > z:\01.txt
Type C:\02.txt >> z:\01.txt


Em VBA também será possivel, já temos diversos exemplos, efetue uma busca aqui no fórum, veja como fazer no link abaixo:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Obrigado ahteixeira,

Então este comando ficou bom porém se eu apagar o arquivo 1 que esta no outro diretório o arquivo que fez a junção vai dar errado. quando eu rodar novamente o .bat

Vou tentar ver se acho em algum lugar pois com .bat parece ser mais fácil.

Muito Obrigado!!

Olá se apagar qualquer arquivo de origem, logicamente não vai dar certo.
Tenha atenção que na primeira linha está apenas com um sinal > , caso exista o ficheiro vai colocar de novo.
Na segunda está com dois sinais (>>), para adicionar.
Abraço

Olá Caio,
para fazer o mesmo em código VBA, segue abaixo exemplo:

Código:

Sub JuntarDoisTXT()
'Álvaro Teixeira (ahteixeira) 2016 para MaximoAccess
    
    Dim sTXT$
    fDestino = "d:\Destino.txt"
    
    
    Open "d:\Destino.txt" For Output Access Write As #2 'abrir ficheiro destino
    
    Open "d:\Origem1.txt" For Input Access Read As #1 ' abrir ficheiro origem nº 1
    Do While Not EOF(1)
        Input #1, sTXT 'le para variavel
        Print #2, sTXT 'grava da variavel
    Loop
    Close #1 'fechar ficheiro origem 1
    
    
    Open "d:\Origem2.txt" For Input Access Read As #1 ' abrir ficheiro origem nº 2
    Do While Not EOF(1)
        Input #1, sTXT
        Print #2, sTXT
    Loop
    Close #1 'fechar ficheiro origem 2
    
    Close #2 'fechar ficheiro destino
    
    MsgBox "Efetuado.", vbInformation, ""
End Sub


Ajustando o nome dos ficheiros e caminho, pode testar na janela Imediate (imediata do VBA).
Abraço