ListViewをcsv形式で保存 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 たこ  (学生) 投稿日時 2012/9/16 23:33:10
ありがとうございます!
解決しました。
投稿者 shu  (社会人) 投稿日時 2012/9/16 21:54:33
こんな感じで。
Encodingは好きなように変更してください。

 
       Using wt As New StreamWriter("C:\tmp\abc.csv"False, Encoding.UTF8)
            For Each itm In ListView1.Items.OfType(Of ListViewItem)()
                Dim FirstItem = True
                For Each sitm In itm.SubItems.OfType(Of ListViewItem.ListViewSubItem)()
                    If Not FirstItem Then wt.Write(",")
                    wt.Write(sitm.Text)
                    FirstItem = False
                Next
                wt.WriteLine()
            Next
            wt.Close()
        End Using
投稿者 たこ  (学生) 投稿日時 2012/9/16 14:42:14
ListViewをcsv形式に出力して保存したいのですが、どうすればよいのでしょう?

VB2010です。