Erro gerando arquivo

[Emerson Sandro 0]

Estou tentando geral 1 arquivo txt, sendo esse criado da juncao de dois arquivos txt existentes chamdo tlinha1.txt e tlinhha2.txt, pesquisando no form achei um código e adaptei-o para a minha necessidade, conforme abaixo:

 

Public Sub MontarArquivo(pPastaOrigem As String, pArqivoDestino As String)

'On Error GoTo ControleErros

Dim intFile As Integer

Dim strFile As String

Dim strTexto As String

Dim strSaida As String

pPastaOrigem = "c:\sancol\pdv1\"

pPastadestino = "c:\sancol\pdv1\"

strSaida = ""

strFile = Dir(pPastaOrigem & "tlinha*.txt")

While strFile <> ""

intFile = FreeFile

Open pPastaOrigem & strFile For Input As #intFile

Do While Not EOF(intFile)

Line Input #intFile, strTexto

strSaida = strSaida & strTexto & vbLf

Loop

Close #1

strFile = Dir

Wend

intFile = FreeFile

Open pArqivoDestino For Output As #intFile

Print #intFile, strSaida

Close #intFile

End Sub

 

pra chamar o código ciei um botao e botei o camnd para chama a funcao:

 

MontarArquivo "c:\sancol\", "C:\sancol\geral.txt"

arquivo gerado:

 

0019130001000008009050932822 789806013806001

 

o certo que quero é assim, :

 

0019130001000008009050932822

789806013806001

 

como descer o 789806013806001 e tirar esses simbolos antes e depois do 789806013806001 ??

 

Emerson

[scorpio 7]

Substitua "& vbLf" por & vbCrLf, ou vbNewLine.