لیست باکس وCommonDialog

[mehdirani]

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

[سید حمید حق پرست]

سلام علیکم
سورس مورد نظر شما رو ضمیمه کردم
موفق باشید.

یا علی (ع)

[سید حمید حق پرست]

اگر هم خواستید از CommonDialog استفاده کنید کدهای زیر رو بجای کدهای سورسی که ضمیمه کردم بزارید :
Dim I As Integer

Private Sub Command1_Click()
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
End Sub
موفق باشید.

یا علی (ع)