Ajuda Txt

[Denis_Rave]

estou tendo problemas com manipulação de arquivox .txt

estou usando o seguinte código para capturar td q esta escrito no txt e adicionar uma nova linha e recolocar o q tinha antes

Dim i As Integer, j As Integer
Open "resultados.txt" For Input As #1
ReDim Valor(0)
Do While Not EOF(1)
   i = i + 1
   ReDim Preserve Valor(i)
   Input #1, Valor(i)
Loop
Close #1

Open "resultados.txt" For Output As #1
Print #1, Text1.Text
Close #1

Open "resultados.txt" For Append As #1
For j = 1 To i
   Print #1, Valor(j)
Next
Close #1

ele até que funciona..só que quando no arquivo txt eu tenho uma linha escrito tipo "22/04/05" ele só captura o "20"

cmo posso resolver isso?

[ramon]

Cara use este codigo que eu montei

n = FreeFile()
Open App.Path & "\resultados.txt" For Input As #n
arquivo = Input(LOF(n), n)
Close #n

Open App.Path & "\resultados.txt" For Output As #1
Print #1, Text1.Text
Print #1, arquivo
Close #1

Ele carrega o seu arquivo todo para a variavel "arquivo"

[Denis_Rave]

ahh agora sim está funcionando.....muito obrigado!