ايران ويج

سلام
من یه سورس یا اموزش می خوام که بتونم از یه فایل متنی اطلاعات رو بخونم و تو یه TextBox نشون بدم.
در ضمن من خودم هر چی سعی کردم فقط تونستم خط اول فایل رو بخونم.

اینم یه نمونه البته به روش ترتیبی
برای ذخیره list1

کد: 
Open "D:\list1.txt" For Output As #1

For i = 1 To List1.ListCount - 1

Print #1, List1.List(i)

Next i

Close 1

اینم برای خوندن

کد: 
Open "D:\list1.txt" For Input As #1

Do While EOF(1) = False

Input #1, a

List1.AddItem a

Loop

Close 1

amiraliforoozandeh

aleas