Text file to TextBox

[Helen1greece]

How is it possible to take text form text file and put it in a TextBox. Can somebody give me an example code without using a RichTextBox?

 

[Supra]

Sure:

Private Sub Command1_Click()
Dim Buffer As String
Dim F As Integer
Dim FilePath As String
    FilePath = "C:\Some Folder\Another Folder\YourFile.txt"
    F = FreeFile
    Buffer = Space(FileLen(FilePath))
        Open FilePath For Binary As #F
            Get #F, , Buffer
        Close #F
    Text1.Text = Buffer
End Sub

 

[Helen1greece]

Thanks Supra!

 

[Supra]

You're welcome

 

[strongm]

or you could add a reference to the Microsocoft Scripting Runtime library, and then use the fractionally shorter:
[tt]
With New FileSystemObject
Text1.Text = .OpenTextFile("C:\test.txt&quot.ReadAll
End With
[/tt]