چگونه باید محتوای یک لیست باکس رو روی هارد ذخیره کنم؟

[sylvester]

سلام به دوستان!
من یه فرم دارم که یک سری اطلاعات رو از سیستم میخونه و یک سری هم از طریق textbox ها میگیره و همگی رو در لیست باکس میریزه. حالا میخوام در پایان کار همه محتوای لیست باکسم بره تو یه فایل txt روی هارد. ولی نمیتونم اینکارو بکنم! راهش چیه. کدی هم که در آخر برنامه اضافه کردم برای حصول بدین منظور اینجوری است

Set b = CreateObject("scripting.filesystemobject")
Set m = b.createtextfile("d:\listbox.txt")
m.write =[COLOR="Red"] ListBox[/COLOR]
m.Close

به جای قسنت قرمز کدهای دیگری هم تست کردم ولی افاقه نکرد.
باید چیکار کنم بچه ها؟

 

[mehrdad201]

یه حلقه باید بزنی از 0 تا listcount-1
بعدش هم هر سطر از لیست باکست رو بریزی توی فایل (به صورت خط به خط(

آخرش هم فایل رو ببندی

 

[sylvester]

یه حلقه باید بزنی از 0 تا listcount-1
بعدش هم هر سطر از لیست باکست رو بریزی توی فایل (به صورت خط به خط(

آخرش هم فایل رو ببندی

مهرداد جان! دستت درد نکنه زود جواب دادی!
میشه لطف کنی کدش رو برام بزاری! میدونم حالا بازم برم سراغش یه جایی باز ریپ میزنم:blush:
دستت درد نکنه

 

[mehrdad201]

والا حفظ نیستم

اما فکر کنم اینطوری باشه

dim iIndex as integer
for iIndex = 0 to list1.listcount-1
write to file command list1.list(iIndex)
next

ممکنه غلط داشته باشه کدم اما مدل کاریش همینطوریه

یه نگا به MSDN بندازی بد نیست