[Resolvido]Unir Arquivos Texto (.txt) fora do Banco de Dados

Caros Amigos!
        Estou com dificuldades para Unir diversos arquivos de Texto q estão fora do meu Banco de Dados,
Mantendo em todos as suas especificações e separando-os por linhas, sendo que cada um arquivo originará
uma nova linha no arquivo resultante.

Se puder contar com vossas costumeiras colaboração agradeço antecipadamente.

Código:


Sub lerArquivoEscreverTxt()
Dim varLinhaDoArquivo
'abri o arquivo e fica armazenado dentro de #1
'CurrentProject.Path = nome da pasta onde se encontra o arquivo do access (ex. C:\MeuPrograma)
Open CurrentProject.Path & "\NomeDoArquivoOrigem.txt" For Input As #1
 
    While Not EOF(1) 'executar do inicio até o fim do arquivo
        'ler linha do arquivo e armazena na variavel varLinhaDoArquivo
        Line Input #1, varLinhaDoArquivo
        
        'aqui e onde pede colocar os dados no arquivo gerado (Resultante)
        Close #3 ' se o arquivo já tiver aberto fecha
        'cria o arquvio para lançar as linhas
        'se o arquivo já existir apenas adiciona as novas linhas no final do arquivo (For Append As #3)
        Open CurrentProject.Path & "\ArquivoResultante.txt" For Append As #3
        
        'escreve no arquivo ArquivoResultante.txt armazenado em #3
        'as informações da linha obtida no arquivo NomeDoArquivoOrigem.txt
        Print #3, varLinhaDoArquivo
        'fecha o arquivo Resultante
        Close #3
    Wend
    
'fecha o arquivo que foi aberto
Close #1


segue esse exemplo ai! só adaptar!!

Caro Amigo Torres
Já resolvi meu problema, recorrendo ao velho DOS, pq em todas as tentativas pelo VB esbarrava no mesmo problema
as especificações da linha de arquivo, porque para cada linha(Arquivo) eu tenho uma especificação, e o método append, seque
as especificações da primeira linha anexada.
Dai então resolvi exportando todos os arquivos para um diretório fora do Banco de Dados, com suas especificações corretas,
e dentro deste diretório criei um arquivo de Lotes do MSDOS (.bat) com a seguinte instrução:

cd C:\Diretorio
copy Arquivo_ModeloA1.txt + Arquivo_ModeloB1.txt + Arquivo_ModeloC1.txt + Arquivo_ModeloZ1.txt ArqResultant.txt

e Então no final da exportação executo o .bat pelo Shell:

Docmd.SetWarnings off
Dim stAppName as String

stAppName = "C:\Diretorio\JuntaTudo.bat"
Call Shell(stAppName, 1)



Fico grato por vossa atenção e se precisar da gente, estamos as ordens.


Abraços