کار با فایل ها

[amiraliforoozandeh]

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

[aleas]

اینم یه نمونه البته به روش ترتیبی
برای ذخیره 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