vb.net导出CSV文件

Public   Function   WriteToCSV(ByVal   dataTable   As   DataTable,   ByVal   filePath   As   String,   ByVal   records   As   ArrayList)   As   Boolean
          Dim   fileStream   As   System.IO.FileStream
          Dim   streamReader   As   System.IO.StreamReader
          Dim   streamWriter   As   System.IO.StreamWriter
          Dim   i,   j   As   Integer
          Dim   strRow   As   String   

          Try
                  If   (System.IO.File.Exists(filePath))   Then
                          System.IO.File.Delete(filePath)
                  End   If   

                  fileStream   =   New   FileStream(filePath,   System.IO.FileMode.CreateNew,   System.IO.FileAccess.Write)   

                  If   Not   dataTable   Is   Nothing   Then
                          streamWriter   =   New   StreamWriter(fileStream,   System.Text.Encoding.Default)   

                          For   i   =   0   To   dataTable.Rows.Count   -   1
                                  strRow   =   ""
                                  For   j   =   0   To   dataTable.Columns.Count   -   1
                                          strRow   +=   dataTable(i)(j)
                                          If   j   <   dataTable.Columns.Count   -   1   Then
                                                  strRow   +=   ","
                                          Else
                                Next
                                  streamWriter.WriteLine(strRow)
                          Next
                          streamWriter.Close()
                  End   If   

                  fileStream.Close()   

                  Return   True
          Catch   ex   As   Exception   

                  Return   False
          End   Try   

  End   Function