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

[Masoud Sj]

سلام و دود خدمت شما دوستان عزیز :)
چند روزیه میخوام برنامه اي بنویسم که تو اون باید امکان ذخیره کردن آیتم های لیست باکس به صورت فایل تکس باشه ، من کد زیر رو براش نوشتم :

CommonDialog1.Filter = "text fils |*.txt|"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Exit Sub
End If
Open CommonDialog1.FileName For Output As #1
Print #1, List1.Text
Close #1

تو قطعه کد بالا میگه آیتمی که در تکست باکس انتخاب شده رو به صورت فایل .txt ذخیره کن.. البته فقط 1 آیتم ذخیره میشه اونم آیتمیه که انتخاب شده...

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

[samiasoft]

دوست عزیز چرا قبل از زدن تاپیک جستجو نمیکنید؟
بارها این مورد حل شده و تاپیک قبلی که زده شده رو هم که ببینید خودم کداشو قرار دادم

مشکل در OpenFileDialog (http://barnamenevis.org/showthread.php?476204-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-OpenFileDialog)

[Masoud Sj]

دوست عزیز چرا قبل از زدن تاپیک جستجو نمیکنید؟
بارها این مورد حل شده و تاپیک قبلی که زده شده رو هم که ببینید خودم کداشو قرار دادم

مشکل در OpenFileDialog (http://barnamenevis.org/showthread.php?476204-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-OpenFileDialog)


من نمیخوام از بیرون چیزی ب داخل لیست باکسم اضافه کنم!
میخوام "آیتم های داخل لیست باکس رو توی سیستم با فرمت تکس ذخیره کنم"

[samiasoft]

من نمیخوام از بیرون چیزی ب داخل لیست باکسم اضافه کنم!
میخوام "آیتم های داخل لیست باکس رو توی سیستم با فرمت تکس ذخیره کنم"

Dim I As Integer
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Files (.txt) |*.txt|"

CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
For I = 0 To List1.ListCount - 1
Print #1, List1.List(I)
Next
Close
End If