کپی محتویات لیست باکس در یک فایل

[gole_maryam]

سلام
می خواستم بدانم چطور می توانم تمام محتویات یک لیست باکس را در درون یک فایل متنی کپی کنم

[asilverisis]

سلام



If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Try
Dim f As New IO.StreamWriter(SaveFileDialog1.FileName)

Dim i As Integer
For i = 0 To LsbShow.Items.Count - 1
f.WriteLine(LsbShow.Items(i).ToString)
Next
f.Close()
MsgBox("Export Complete.")

Catch ex As Exception
MsgBox("ERROR in Creating file.")

End Try
End If

موفق باشید