خواندن از فایل متنی و نمایش محتویات آن در لیست باکس

[>-->O]

با این دستور می توانیم یک فایل متنی را باز کینم و خط به خط آن را بخوانیم . البته تاجایی که Enter وارد شده است.

یه Command و یه ListBox به فرم اضافه کنید .

Private Sub Command1_Click()
Dim a As String
Open App.Path & "\textfile.txt" For Input As #1
Do Until EOF(1) = True
Line Input #1, a
List1.AddItem a
Loop
Close #1
End Sub