List数据生成CSV文件

Function Index() As ActionResult             dataOutPut = New List(Of Categories)()             Dim search1 As String = "Beverages"             Dim search2 As String = "Cheeses"             ' 空のコレクションを用意             Dim queryList As IEnumerable(Of Categories) = New List(Of Categories)()             If search1 <> "" Then                 queryList = queryList.Union(db.Categories.Where(Function(v) v.CategoryName.Contains(search1)).ToList())             End If             If search2 <> "" Then                 queryList = queryList.Union(db.Categories.Where(Function(c) c.Description.Contains(search2)).ToList())             End If             Dim all = queryList.ToList()

            'リストデータをCSVファイルに出力           

            ConvertListTDataToCSVFile(all, "C:\testdata\bb.csv")             '本画面で、操作した後、本画面を表示する              Return View()

        End Function

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

''' <summary>         ''' TDataデータをCSVファイルに出力する         ''' </summary>         ''' <param name="sourceListData"></param>         ''' <param name="csvPath"></param>         Public Shared Sub ConvertListTDataToCSVFile(ByVal sourceListData As IEnumerable(Of Categories), ByVal csvPath As String)             Dim enc As System.Text.Encoding =　System.Text.Encoding.GetEncoding("Shift_JIS")             '書き込むファイルを開く             Dim writer As New System.IO.StreamWriter(csvPath, False, enc)             For Each item In sourceListData                 Dim lineData As String                 lineData = item.CategoryID & "," & item.CategoryName & "," & item.Description                 writer.WriteLine(lineData)                 writer.Flush()             Next             '閉じる             writer.Close()         End Sub