Exibir Conteúdo Do Arquivo.

[Guest - AlexMunhoz -]

Eu gravei o uma texto em um arquivo e preciso exibi-lo em um textbox, segue o exemplo de como eu gravei esse conteudo.

Private Sub Command1_Click()

Dim controle As Integer

controle = FreeFile

Open "c:\Nome.txt" For Append As controle

Print #controle, Text1.Text

Close controle

Text1.Text = ""

End Sub

Agora eu quero abrir esse conteúdo em um no mesmo textbox de forma direta, sem usar o CommonDialog como faço isso?

[Graymalkin]

Assim:

Dim controle As Integer
controle = FreeFile()
Open "c:\Nome.txt" For Input As controle
Text1.Text = Input(Lof(controle), controle)
Close controle

Abraços,

Graymalkin

[AlexMunhoz]

Assim:

Dim controle As Integer
controle = FreeFile()
Open "c:\Nome.txt" For Input As controle
Text1.Text = Input(Lof(controle), controle)
Close controle

Abraços,

Graymalkin

vlww amigão,

Muito obrigado...