ARQUIVO DE TEXTO PARA RICHTEXTBOX

PAYDANA 09/05/2013 12:23:27
#423179
Como faço isso de forma mais rapida possivel?

fiz desta forma aqui, mas esta lento dimais porque são quase 70 mil linhas.
Grato!

yArquivo = App.Path & [Ô]\Grosso.txt[Ô]

yARQ = FreeFile
Open yArquivo For Input As yARQ
RichTextBox1.Text = [Ô][Ô]
Do While Not EOF(yARQ)
Line Input #yARQ, yLinha
RichTextBox1.Text = RichTextBox1.Text & yLinha & vbNewLine

Loop
Close yARQ
PAYDANA 09/05/2013 12:36:04
#423181
achei
RichTextBox1.LoadFile App.Path & [Ô]\Grosso.txt[Ô]
foi lapso de memoria
MARCELO.TREZE 09/05/2013 12:38:47
#423182 Resposta escolhida
num sei se entendi mas ja tentou

RichTextBox1.LoadFile App.Path & [Ô]\Grosso.txt[Ô]
PAYDANA 09/05/2013 12:40:46
#423183
Isso mesmo MARCELO-TREZE
Ja tinha feito isso antes mais nao lembrava
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar