ListBoxのデータを高速でファイルに書き込む方法 VB.NET

ListBoxに大量のデータを登録してありそれをファイルに保存する場合
Dim data As String
For i As Integer = 0 To ListBox1.Items.Count - 1
data = data & ListBox1.Items(i) & VbCrLf
Next

という方法で変数に読み込むとデータが大量にある場合
非常に遅く、OutOfMemoryのエラーが出てしまったりするのですが、
このような場合により適切な方法がありましたらご教授頂けないでしょうか。

宜しくお願いいたします。

No.1 ベストアンサー 回答者： AKARI0418 回答日時： 2009/01/09 14:29

System.IOとSystem.Textをインポートしてください。

Dim enc As Encoding = Encoding.GetEncoding("Shift_JIS")
Dim Fname as String = ファイル名を入れてください
Using writer As StreamWriter = New StreamWriter(csvName, False, enc)
For i As Integer = 0 To ListBox1.Items.Count - 1
writer.writeline(ListBox1.Items(i))
Next
End Using