چاپ listbox بر روی کامپیوتر

[www.pc3enter.tk]

سلام دوستان
من با استفاده از این کد می توان متنی که در تکس باکس است بر روی کامپیوترم با پسوند txt به طور کامل ایجاد کنم

intfnum = FreeFile
Open "c:\a.txt" For Output As #intfnum
Print #intfnum, Text1.Text
Close #intfnum

حال وقتی در می خواهم یک لیست باکس با همین کد کپی کنم فقط خط اول لیست باکس را برای کپی می کند "لطفا اگر امکان دارد کمکم کنید"
باتشکر

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=153437&highlight=%D9%84%D9%8A%D8%B3%D8%AA+%D8%A8%D8%A7%D9 %83%D8%B3

[www.pc3enter.tk]

من به سایت مورد نظر رفتن
اول= برنامه به بعضی از خط ها گیر می داد
دوم= اما این جواب سوال من نبود
ببین من یک تکس باکس را روی صفحه ذخیره می کنم کامل
ولی لیست باکس را فقط قسمت اول آن را چاپ می کند من باید چه کار کنم
آیا می توان تمام متن های داخل لیست را کپی کرد و خودمان را داخل نودپد ذخیره کنیم ؟؟

[vbhamed]

سلام

اينم كد مورد نظر شما

Dim s$, i&, intfnum

With List1

For i = 0 To .ListCount - 1
s = s & .List(i) & vbCrLf
Next

intfnum = FreeFile
Open "c:\a.txt" For Output As #intfnum
Print #intfnum, s
Close #intfnum

End With

[www.pc3enter.tk]

ممنون تا یک جای رسیدم ولی دوباره به نتیجه نرسیده ام اگر می شود یک نمونه فایل را بگذار روی سایت تا بدانم مشکل من چیست
باتشکر دوست عزیز

[returnx]

فکر کنم این سورس بدردت بخوره کد دکمه Export to Text file رو ببین :
http://www.4shared.com/file/7o6zPkJK/Get_ip_in_Range3.html
من قبلا این برای یکی از دوستان نوشتم اما تاپیک قفل شد امیدوارم بدرد شما بخوره.

[www.pc3enter.tk]

دستت درد نکه خیلی ممنونم
فقط
اگز می بخواهم فایل را با پسوند html ذخیره کنم باید چه کار کنم

[returnx]

دستت درد نکه خیلی ممنونم
فقط
اگز می بخواهم فایل را با پسوند html ذخیره کنم باید چه کار کنم
به جای کد فیلتر Common Dioalog این کد بزار.

cmd.Filter = "All Text Formats|*.txt;*.doc|Text Document(.txt)|*.txt|Wordpad Document(.doc)|*.doc|Html File(.html)|*.html"