Visual Basic > Code Snippets

Display a files contents in a text box

Display a files contents in a text box


'place a text box on a form

Private Sub Form_Load()
Dim fileLength
Open "d:\comboexample.txt" For Input As #1
fileLength = LOF(1)
fileRead = Input(fileLength, #1)
Text1.Text = fileRead
Close #1
End Sub

'comboexample.txt

line1
line2
line3
line4