ذخیره لیست باکس

[soheil-vb6]

سلام
من یه چندوقتی بود که برنامه نمینوشتم
اما الان نوشتنه یه برنامه را شروع کردم البته برنامه را برای خودم نمیخوام
حالا بریم سر اصل مطلب
من یه برنامه ای نوشتم که تمام مسیرهایی که در ویندوز به انها رفته شده را ثبت میکنه
اما یه مشکل اساسی داره مسیرهایی که در لیست باکس ذخیره میشه بعد از بسته شدن پنجره پاک میشه میخواستم یه کاری کنید که (مثلا در یه جایی ثبت شه)بمونه
اگه به صورت منظم در یک فایل متنی ذخیره شه هم خیلی خوبه
مرسی
اینم سروسش

[Mbt925]

برای نوشتن آیتم های موجود در لیست باکس :



dim FN as long
dim i as long

FN=FreeFile()
Open App.Path & "\FileName.txt" For Output as #FN

For i=0 to Lsit1.ListCount-1

Write #FN,List1.List(i)

Next

Close #FN


خوندن آیتم ها از فایل و قرار دادن در لیست باکس:





dim FN as long
dim Items as String

List1.Clear

FN=FreeFile()
Open App.Path & "\FileName.txt" For Input as #FN

Do While(Eof(FN)=False)

Input #FN,Items
List.AddItem Items

Next

Close #FN