ذخیره محتویات یک لیست باکس

[Netsky]

سلام دوستان .
من میخام محتویات یه لیست باکس رو درون فایل متنی بریزم . هر کاری کردم نشد .
اگه میشه لطفا راهنمایی کنید .
با تشکر .............

[Felony]

یه فایل رو برای نوشتن باز کنید و موقع نوشتن یه حلقه از 0 تا تعداد آیتمهای لیست بنویسید و داخل حلقه اطلاعات رو در فایل بنویسید ، آخر فایل رو ببندید .


F = FreeFile
Open "D:\Test.txt" For Output As #F
For i = 0 To List1.ListCount
Print #F, List1.List(i)
Next i
Close #F